c:\@Work\Perl\monks>perl -wMstrict -le
"my $line = qq{1424621700, 2015-02-22 16:15:00, 4294.700\n};
 chomp $line;
 print qq{'$line'};
 ;;
 my ($first) = split m{ , \s* }xms, $line;
 print qq{'$first'};
"
'1424621700, 2015-02-22 16:15:00, 4294.700'
'1424621700'