Select Code to Download

#!/usr/bin/perl -l

...
  (?{ print "@{$^R}" })      # print the words (with spaces)
  (?!)                       # fail (cause everything to backtrack)
}x;