my $var = 'test1234test'; $var =~ /\d/; print length($`) + 1;