sub meat_and_potatoes_of_program {
    while (<my_file>){
       /(\w{3}\s+\w{3}\s+\d{1,2}/;
       my $date = $1;
       print "date \n <br>";