C:\>perl -e "my $var = 'test124test'; $var =~ m/\d/g; print pos($var);"
5