Hi all,

I want a  regex used in Perl which is

@ret = $query =~ /(googl.?)|(.?oogle)/;

if the $query is "google",  then will be matched, and the @ret = (google, undef), $1 = "google", $2 is undef

but I want result like @ret = (google, google), because the pattern  "(.?oogle)" is matched too,

And my regex is very long (the regex above is just an example), maybe thouands of "|", so if separate the regex  to /(googl.?)/ and /(.?oogle)/ will be inefficient. 

Does anybody can help me?  Thanks!