scalar( $str !~ s/junk//g );