Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

@ARGV = '/usr/share/dict/words';
/$qr/ and print, exit while <>; # show first match
  2. or download this
    qr/^(.)(?!\1)(.)(?!\2)(?!\1)(.)(?!\2)(?!\1)(?!\3)(.)(?!\4)(?!\3)(?!\2)
+(?!\1)(.)(?!\5)(?!\2)(?!\1)(?!\3)(?!\4)(.)\1$/
algebra
  3. or download this
    #!/usr/bin/perl

...
@ARGV = '/usr/share/dict/words';
use List::AllUtils qw{ sample };
print sample 10, grep /$qr/, <>
  4. or download this
    qr/^(.)
(?!\1)(.)
...
shock's
singles
snipe's