Help for this page

Select Code to Download

Select or download this

my $rt = [
    [AM => [(qr/\b/) x 2]],
    [japhy1 => [qr/(?:(?=\w)(?<!\w)|(?=\W)(?<!\W))/, qr/(?:(?<=\w)(?!\
+w)|(?<=\W)(?!\W))/]],
...
        print "[$try|$thing]$text\n";
    }
}