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