Help for this page

Select Code to Download


  1. or download this
      $board =~ /(?<!\w).{2,}(?!\w)(?{ push @pat, [ $-[0], $& ] })(*FAIL)/
+;
  2. or download this
    perl -le ' "abcd" =~ /.{2,}(?{print $&})(*FAIL)/ '