'abcd' =~ /(.*) (?{ say $1 }) (?!)/sx