Select Code to Download

$ perl -Mstrict -Mwarnings -E '
    my $x = q{A|||||Z};
...
'
A|
A|

$ perl -Mstrict -Mwarnings -E '
    my $x = q{A|||||Z};
...
'
A|||||
|