($scalar) = $str =~ m/(this)/;