Help for this page

Select Code to Download


  1. or download this
    Win8 Strawberry 5.8.9.5 (32)  Tue 08/16/2022  3:05:36
C:\@Work\Perl\monks
...
ok 51 - 'abacdaefa' -> 'aba' repeats
ok 52 - 'abacdaefa' -> 'baa' repeats
ok 53 - no warnings
  2. or download this
    Win8 Strawberry 5.8.9.5 (32)  Tue 08/16/2022  3:56:38
C:\@Work\Perl\monks
...
ok 51 - 'abacdaefa' -> 'aba' repeats
ok 52 - 'abacdaefa' -> 'baa' repeats
ok 53 - no warnings
  3. or download this
        my ($rx) =
        map   { length() ? qr{ ([\Q$_\E]) .*? \1 }xms : qr/(?!)/ }
...
        ;

    return $rx;