Select Code to Download

my $date = localtime;
my @fields = split /\s+/, $date;
...
if ( /^ERROR/ && /$month $day/ ) {
    print "match\n"
}