Select Code to Download

#! perl
use strict;
...
{
    print "$1\n" if /([a-zA-Z]{1,2})/;
}

13:13 >perl 633_SoPW.pl
EC
...
A

13:13 >