Select Code to Download

my $str = 'Hello World!';

...
s/^/[/g
s/$/]/g
s/([A-Z])/lc($1)/eg

my @substitutions;

...
s/^/[/g
s/$/]/g
s/([A-Z])/lc($1)/eg