my $code = 'print qq{Hello world!\n};';
eval $code;

##</code><code>##

my $code = '1+1';
my $result = eval $code;
print $result, "\n";