Select Code to Download

mainfile 

...
1456   5385   p  98
6739  5468    n  87
6543  7275    n  54

...
…
ttt            1456   5385
ggg         6543   7275

...
ddd   3467   3284
bbb   6739   5468

#!/usr/bin/perl
...
#Open output file and write the start stops of each name-with/without
die "output.txt" unless(open(OUT,"> output.txt"));