Help for this page
if ($line =~ /<h3>(.*?)(\d.*)<\/h3>/) { print "Generic name is: $1 \n\t Dosage is:$2\n"; }