Help for this page

Select Code to Download


  1. or download this
    @rt = (
    q/\b/,    # standard word boundary
    q/(?:(?=\w)(?<!\w)|(?=\W)(?<!\W))/,    # [japhy]-explicit-left
...
        print "[$try]$txt\n";
    }
}
  2. or download this
    [\b                             ]*this*,
[(?:(?=\w)(?<!\w)|(?=\W)(?<!\W))]*this*,
[(?:(?<=\w)(?!\w)|(?<=\W)(?!\W))]this*,*
...
[(?(?=\w)(?<!\w)|(?<!\W))       ]*,*that*
[(?(?<=\w)(?!\w)|(?!\W))        ],*that*
[(?:(?=\w)(?<!\w)|(?!\w)(?<=\w))],*that*