Select Code to Download

if(substr($_,0,1) eq 'A') { ...

Ape added to A
Arg added to A
...
Circus added to trash!
Ape, Arg
Beep, Circus

if(/^A/) { ...

...
print "$_ added to A\n";
...
print "$_ added to trash!\n";