(?:(?<=\w)(?=\W|\z)|(?:(?<=\W)|(?<=\A))(?=\w) #### (?:(?## (?:(?## my $w = '\w/-'; my $b = "(?:(?