1 if $str !~ s/junk//g;