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