Select Code to Download

use strict;
use warnings;
...
              print $line, "\n";
        }
   }

<DATA>
CP1006    100    200
...
CP1006    40    100
SPS008    60    110