open(F0, $ARGV[0]); while() { my $match; while (/\t+/g) { $match = 1; print $-[0], ' ', $+[0], ' '; } print '-1 -1' unless $match; print "\n"; } close F0; #### print $+[0], " ",$+[1], " ", $+[2], "\n" ;