$x = $nerf{(/^(\w*)/)[0]}; 
print "hash ctxt: ", $x, " $&", "\n";