Help for this page

Select Code to Download

Select or download this

while (<DATA>) {
   if (/\w{1,12}\s+(\d{1,5})\s+[a-zA-Z]{4}/sm){
...
BC001593 91 NPSL
BC001593 262 NASS
BC001593 293 NAST

Select or download this

while (<DATA>) {
   my $pos = (split ' ')[1];
...
BC001593 91 NPSL
BC001593 262 NASS
BC001593 293 NAST