Select Code to Download

print do_stuff();

use strict;
...
$_ = 'hello world goodbye';

s/$target/print $should_replace{$target} ? "$repl " : "[$repl] "/ex;

use strict;
use warnings;
...
    my $output = exists $should_replace{$target} ? "$repl " : "[$repl]
+ ";
    say $output;
}

use strict;
use warnings;
...

--output:--
[Hello]