$ perl -le' my $Str1 = "000001"; $Str1 =~ /[1-9]/ and my $Index = $-[ 0 ]; print "$Index\n"; ' 5 [download]
In reply to Re: index using a range by jwkrahn in thread index using a range by romano