Help for this page

Select Code to Download


  1. or download this
    >perl -wMstrict -le
"my %replace = (
...
find regex (longest match): (?msx-i: DEXX|AREX|ABCDE|ABCD|ABC )
before: 'DEXX AREX CUBE ABC ABCD ABCDE'
after:  'DEXX/AREX AREX/CUBE CUBE ABC/VWX ABCD/VWXY ABCDE/VWXYZ'
  2. or download this
    >perl -wMstrict -le
"my %replace = (
...

before:  'ABC ABCD xxABCDxx ABCDE'
with \b: 'XXX YYYY xxABCDxx ZZZZZ'