"<h3>FENTANYL 25MCG/HR PATCH, TRANSDERMAL 72 HOURS</h3> <p class='cd1'>Restricted to NDC labeler code 50458 (Janssen) and to a maximum of ten (10) transdermal patches per dispensing and a maximum of three (3) dispensings of any strength in a 75-day period only. </p><p>mfg codes:50458</p><p>DURAGESIC</p> ",

"<h3>ACETAMINOPHEN 80MG/0.8ML SUSPENSION, DROPS(FINAL DOSAGE FORM)(ML)</h3> <p class='cd1'>Restricted to individuals younger than 21 years of age for the liquid and drops only. </p><p>mfg codes:68016, 63868, 63162, 49348, 46122, 36800, 00904, 00536, 00472, 00113, 00067</p><p>TRIAMINIC FEVER REDUCER | PAIN & FEVER | NORTEMP | MAPAP INFANT | INFANTS' NON-ASPIRIN | INFANT'S PAIN RELIEVER | INFANT'S PAIN RELIEF | INFANT'S NON-ASPIRIN | ACETAMINOPHEN</p> "}

<code>

 foreach my $line(@lines){
        print "\n";
         # print "My line is $line\n";
          # if($line =~ m/\<h3\>(.*)\<\/h3/) { # prints data that is between the <h3> tags
          if($line =~ m/\<h3\>(.*)\d+(.*)/       ) {
            print "GENERIC_NAME is: " . $1 . "\n";    #  
            #if ($line =~ m/\d+(.*)/){   ### Does not work.  It gets the heading tag <h3>
            #   print "Dosage is: " . $1 . "\n";
            # }
 
            if($line =~ m/\<p class='cd1\'\>(.*)\<\/p\>/) {
                print "Instructions 2 are: " . $1 . "\n";
            }
         }
      }