$x = $nerf{(/^(\w*)/)[0]}; print "hash ctxt: ", $x, " $&", "\n"; [download]
In reply to RE: Contexts for regex evaluations by mikfire in thread Contexts for regex evaluations by neshura