'foo' =~ /(?'name'(?=o)(\w+))(?{print $name})/

# or

'foo' =~ /(?'name'(?=o)(\w+))(?{print $-1})/

Number found where operator expected at (eval 23)