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