@###.# millibars equals: $pressconv{press}
@###.## inches of Mercury $inHg
@###.## millimeters of Mercury $mmHg
@###.## Hectopascals $hPa
@##.#### Pounds per square inch $lbin
@##.#### Kilograms per square centimeter $kgcm . } else { print "An illegal character was entered.\n"; die } } else { if ($pressconv{press} =~ /(\d+)\.?(\d+)|^\d+$/) { $mb = ($pressconv{press}*33.8639); $mmHg = ($pressconv{press}*25.4); $hPa = $mb; $lbin = ($pressconv{press}*0.491154); $kgcm = ($pressconv{press}*0.0345316); $~ = "PRESS2"; write; format PRESS2 =
@###.## inches of Mercury equals: $pressconv{press}
@###.## Millibars $mb
@##.#### Kilograms per square centimeter $kgcm . } else { print "An illegal character was entered.\n"; die } } }