Help for this page

Select Code to Download


  1. or download this
      my $re = join ' ', map "(?= .*? \Q$_\E)", @ARGV;
  if ($entry =~ /^ $re/sx) { ... }
  2. or download this
      m{ ^ (?= .*? bill ) (?= .*? clinton ) }xs
  3. or download this
    from the start
  fail unless we can find some characters followed by "bill"
_and_ (still from the start)
  fail unless we can find some characters followed by "clinton"
succeed