my ($date, $file_name) = split(",");
...
        my ($month, $day, $year) = split(m@/@, $date);