Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $date = sprintf("%4d%02d%02d", $year,$month,$day);

print "date = $date\n"; #date = 20111031

#!/usr/bin/perl -w
use strict;
...
__DATA__
AAAA*20111031*.log 
AAAA*sfdaf*20110101*.log