or download this
use Modern::Perl;
use Data::Dump qw /dump/;
...
__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 te
+n (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 o
+f age for the liquid and drops only. </p><p>mfg codes:68016, 63868, 6
+3162, 49348, 46122, 36800, 00904, 00536, 00472, 00113, 00067</p><p>TR
+IAMINIC FEVER REDUCER | PAIN & FEVER | NORTEMP | MAPAP INFANT | INFAN
+TS' NON-ASPIRIN | INFANT'S PAIN RELIEVER | INFANT'S PAIN RELIEF | INF
+ANT'S NON-ASPIRIN | ACETAMINOPHEN</p>