http://www.perlmonks.org?node_id=1038901


in reply to index using a range

$ perl -le'
my $Str1 = "000001";
$Str1 =~ /[1-9]/ and my $Index = $-[ 0 ];
print "$Index\n";
'
5

[download]

In Section Seekers of Perl Wisdom