root@Captain:/home/pardus# perl
my $string = "print 'some string'; }";
my $sub = eval "sub { $string }";
print $@;

Unmatched right curly bracket at (eval 1) line 1, at end of line
syntax error at (eval 1) line 1, near "} }"