Select Code to Download

use strict;
my $a='hello|world';
...
for (@letras)    {
    print "[$_]";
}

my $c='\|';

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print