Select Code to Download

$ perl -MO=Deparse -F: -lane 'push @x, $F[0] if /^[A-Z]/}{print for so
+rt @x'

...
{
    print $_ foreach (sort @x);
}

use warnings;
use strict;
...
    push @out, $fields[0] if /^[A-Z]/;
}
print "$_\n" for sort @out;