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