1 while /REGEX(?{print $&})(?!)/;