Select Code to Download

file1:
COMPANY      ABCD 764200 E  2013,12,13   2013,12,19
...
COMPANY      BCDX 156167 L  2013,11,30   2013,12,03
COMPANY      BCYX 165230 L  2013,12,13   2013,12,17
COMPANY      BCYX 156095 L  2013,11,30   2013,12,08

#!/usr/bin/perl
# 
...
        }
}
exit;