Select Code to Download

file1.txt:
234  13  4  49 +  TAT_01  id_nu1  explan1
...
545  154  83  11 +  TAT_03  PAS_2 id_nu3  new3
764  124  9  33 +  TAT_04  id_nu4  explan4
765  131  21  12 -  TAT_05  PAS_3 id_nu5  new5

#!/usr/bin/perl
open(FH1,"file1.txt");
...
        }
}