Select Code to Download

/(\w{3}\s+\w{3}\s+\d{1,2}/;
my $date = $1;

#!/usr/bin/perl -w

...
    }
    # more stuff
}