my ($date, $file_name) = split(",");

##</code><code>##

$date =~ s@\r|\n@@g; # get rid of trailing newlines, however formatted