Help for this page

Select Code to Download


  1. or download this
    
#!perl
...
    my $result = $word =~ $pattern ? "matches" : "doesn't match";
    printf qq/The word "%s" %s the pattern %s\n/, $word, $result, $pat
+tern;
}
  2. or download this
    The word "Tšekissä" matches the pattern (?-xism:\A\w+\z)
The word "Žena" matches the pattern (?-xism:\A\w+\z)
The word "Śdipus" matches the pattern (?-xism:\A\w+\z)
The word "Rex" matches the pattern (?-xism:\A\w+\z)