13/10/07 20:26:05.75 ZcmBldxq0
open $in, '<', 'test.txt';
for (grep /^\s*\d{4}\s*/, split /,/, <$in>) {
$_ =~ s/\s//g;
print "$_\n";
}
13/10/07 20:26:05.75 ZcmBldxq0
open $in, '<', 'test.txt';
for (grep /^\s*\d{4}\s*/, split /,/, <$in>) {
$_ =~ s/\s//g;
print "$_\n";
}