$_='abcdefgh'; /^(a|abcdefg)(h|bc)/; print "[$1] [$2]\n";