Select Code to Download

>perl -wMstrict -le
"use re 'debug';
...
  18: END (0)
floating "a" at 0..2147483647 (checking floating) stclass BOUND minlen
+ 1
Freeing REx: "(?<WORD>\b\w*a\b)(?<EXTRA>.{0,5})"