Chr21 NT_113958 STS 76092 76265 Chr21 NT_113958 number=1 #### while() { chomp($_); $_ =~ s/^\s+//; $_ =~ s/\s+$//; if(($_ =~ /\A(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)/xmg) || ($_ =~ /number\=(\S+)/xmg)) { print "$1\t$2\t$3\t$4\t$5\t$6\n"; } } #### Chr21 NT_113958 STS 76092 76265 1 #### Chr21 NT_113958 STS 76092 76265 1