"
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.
mfg codes:50458
DURAGESIC
", "Restricted to individuals younger than 21 years of age for the liquid and drops only.
mfg codes:68016, 63868, 63162, 49348, 46122, 36800, 00904, 00536, 00472, 00113, 00067
TRIAMINIC FEVER REDUCER | PAIN & FEVER | NORTEMP | MAPAP INFANT | INFANTS' NON-ASPIRIN | INFANT'S PAIN RELIEVER | INFANT'S PAIN RELIEF | INFANT'S NON-ASPIRIN | ACETAMINOPHEN
"}
foreach my $line(@lines){
print "\n";
# print "My line is $line\n";
# if($line =~ m/\(.*)\<\/h3/) { # prints data that is between the tags
if($line =~ m/\(.*)\d+(.*)/ ) {
print "GENERIC_NAME is: " . $1 . "\n"; #
#if ($line =~ m/\d+(.*)/){ ### Does not work. It gets the heading tag
# print "Dosage is: " . $1 . "\n";
# }
if($line =~ m/\
(.*)\<\/p\>/) {
print "Instructions 2 are: " . $1 . "\n";
}
}
}
##
##
GENERIC_NAME is: FENTANYL 25MCG/HR PATCH, TRANSDERMAL 72 HOURS 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.
mfg codes:5045
Instructions 2 are: 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>mfg codes:50458DURAGESIC