use Readonly;

my $str = 'hi';

# String
Readonly my $STR => $str;

# Closure
my $closure = do { my $var = $str; sub { $var } };

# Evalled Sub
my $anonsub = do {
    (my $var = $str) =~ s/(["\\])/\\$1/g;
    eval qq{sub {"$var"}};
};

$str = 'hello';

print "string = $STR\n";
print "closure = ", $closure->(), "\n";
print "anonsub = ", $anonsub->(), "\n";