$ perl -wle'
    sub f { my $x = "abc"; sub { $x if 0; eval q{"[$x]"} } };
    print f()->();
'
[abc]