************************************** $ptypeline = "# movable ortProj ortho 0.000 0.000";
($ptype) = ($ptypeline =~ /movable.+(sine|geo|radial|ortho)/i) || "(missing)"; print $ptype, "\n"; ************************************** The above code prints "1", where I want it to print "ortho". Is that possible? (Preferably in one line, since I'm a *big* fan of perl golf. =) - B
