thank's for the tip. I have replaced the code inside the while loop with code you provided

open(F0, $ARGV[0]);

while(<F0>) {
    my $match;
    while (/\t+/g) {
        $match = 1;
        print  $-[0], ' ', $+[0], ' ';
    }
    print '-1 -1' unless $match;
    print "\n";
}

close F0;
[download]

and works fine and get the expected results. good thank's :)))

However I find that that PerlDoc https://perldoc.perl.org/perlvar#Variables-related-to-regular-expressions
is a bit misleading when it says that indexes/positions before and after regex match can be found in the LAST_MATCH_START/@- and LAST_MATCH_END/@+ array by printing

print  $+[0], " ",$+[1], " ", $+[2], "\n" ;
[download]

again thank's for the code :)))