chomp $line;
my @record = split /','/, $line;
substr($record[0],0,1) = '';
chop $record[-1];