The smallest alternative is:

Under strictures one variant is:

x
[download]

With the typo/trick question "corrected" an interesting alternative is:

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

my $string = "hello world"; $string=~s/(\w+)$/print$1/e; </c>