use Safe;
use Devel::Peek;

my $r = 'bless \\ do { my $x = 0 }, "x"';
print Dump(eval $r);
print Dump(Safe->new->reval($r));
print Dump(eval $r);
print Dump(Safe->new->reval($r));