$str !~ s/junk//g;

##</code><code>##

Useless use of not in void context at ...

##</code><code>##

if ( $str !~ s/junk//g ) {}