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