Select Code to Download

while (<FH>) {
    chomp;
    my ($date, $file_name) = split(",");
    $date =~ s@\r|\n@@g; # get rid of trailing newlines, however forma
+tted