#!/usr/bin/perl
use 5.014;          # automatically invokes 'strict' and 'warnings'
# 958840

my @array = <DATA>;
for my $line(@array) {
    if ( $line =~ /<h3>(.*)<\/h3>/ ) {    # Note 1
        say "\n\t NAME is:  $1";
    }
    if ( $line =~ /<p class='cd1'>(.*)(?=<\/p><p>mfg)/ ) {   # Note 2
       say "\t Instructions 2 are: $1";
    }
    if ( $line =~ /\d+<\/p><p>(.*)(?=<\/p>$)/ ) {      # Note 3
        say "\t GENERIC NAME IS: $1.\n\t" . "-" x15;   # Note 4      
    }
}

__DATA__
<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>