Help for this page

Select Code to Download


  1. or download this
    use 5.010;

...
if( $string ~~ @patterns ) {
 say q(matched);
}
  2. or download this
    gizmo@veterok: <bash>[~/dev/smart_match_regex_test]
$ ./test.pl 
(?i-xsm:foo)(?i-xsm:ba(r|z))(?i-xsm:quux)