Select Code to Download

`perl -pi -e 's/2007\d\d\d\d\d\d/2007102901/' *.com`

#!/usr/bin/perl
use warnings;
...
    my $year = 1900 + $time[5];
    return $year . $month . $day . "01";
}