thank's for the tip. 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 tip :)))