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