sub meat_and_potatoes_of_program {
    while (<my_file>){
       /(\w{3}\s+\w{3}\s+\d{1,2}/;

##</code><code>##

       my $date = $1;
       print "date \n <br>";

##</code><code>##

sub the_meat_and_potatoes_of_program{
my $pass_down_date = 1