@got = $str =~ m/(foo)/g;