Help for this page

Select Code to Download


  1. or download this
    use 5.020;
use Regexp::Assemble;
...

my $newre = qr/blah|bleh|chicken|woofie|snake|snakes|woofies|chicken-w
+oofy/;
say $newre;
  2. or download this
    (?^:(?:chicken(?:-woofy)?|woofies?|bl[ae]h|snakes?))
(?^u:(blah)|(bleh)|(chicken)|(woofie)|(snake)|(snakes)|(woofies)|(chic
+ken-woofy))