Select Code to Download

{
    my $x = 'abc;
...
{
   my $x = 'ABC';
}

#!/usr/bin/perl

...
# like tr/abc/123/
$tr->() for @list;
say "(@list)";   # (1xy 2xy 3xy);