DB<80> my $a="xxx";scalar ($a=~/x/g);print pos($a); tst $a; print $a,pos($a)
1xxx1