Help for this page

Select Code to Download


  1. or download this
    {
      my @matches;
    ...
    DE
    EF
    AB
    
  2. or download this
    {
      my @matches;
    ...
        @subs{  match_all_ways("$str1\0$str2" => qr/(.{$len}).*\0.*\1/)  }
    + = ();
        return keys %subs;
    }