16:12 >perl -wE "my $string = 'abcde'; $_ = 42; say; $string =~ /(?{ say })/;"
42
abcde

16:12 >perl -v

This is perl 5, version 22, subversion 0 (v5.22.0) built for MSWin32-x64-multi-thread