use warnings;
use strict;
use B::Deparse;

my $code = q{ print "code\n"; s s s END { print "end\n" } see };
my $coderef = eval qq{ sub { $code } };

my $deparse = B::Deparse->new();
$deparse->ambient_pragmas(strict => 'all', warnings=>'all');
print $deparse->coderef2text($coderef), "\n";

__END__

{
    print "code\n";
    s/ /();/ee;
}
end