1#!/usr/bin/perl 2 3# ��ܤä�����,47,47,5026,���ƻ�,��Ω,*,*,���ƻ졦��������,Ϣ�ѥ���³,��ܤä���,��ܥå�����,��ܥå����� 4 5while (<>) { 6 chomp; 7 my @l = split /,/, $_; 8 print "1\t", $l[11], "\n"; 9} 10