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

##</code><code>##

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