perl -Mre=debug -e '@rr = "efgmnoxyz" =~ /(?=(\w\w\w))/g'