##</code><code>##

x

##</code><code>##

$string =~ s/(\w+)$/print $1/e;