($mres) = ($res =~ m/()/im); #### ($mres) = ($res =~ m/()/im);