Select Code to Download

use 5.010;

my $make_output_string = sub { "this is a $_[0]" };
...
{
    say $make_output_string->($1);
}