#!/usr/local/bin/perl
open (OLD, 'old.txt');
open (NEW, '>new.txt');
while (<OLD>) {
chomp;
next unless $_ =~ /\t/ && /0.000000/;
next unless $_ !~ "F";
$_ =~ s/\t//;
print NEW ("$_\n");
}
close (OLD);
close (NEW);