# perl -Mre=debug -e '@matches = "efgmnoxyz" =~ /(\w\w\w)/g' 2>&1 | grep 'Matching REx'
Matching REx "(\w\w\w)" against "efgmnoxyz"
Matching REx "(\w\w\w)" against "mnoxyz"
Matching REx "(\w\w\w)" against "xyz"