Help for this page
/(\b (([a-z]) # at least one char ... (?{if ($^N eq $suffix[-1]) {pop @suffix}}) \b) /x