Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...

    is($newstr, $expect, "'$target' -> '$expect'");
}

Select or download this

1..13
ok 1 - '\#T\#' -> 'abc'
...
ok 11 - 'MNO \#T\#PQR' -> 'MNO abcdefghijklmPQR'
ok 12 - 'MNO\#T\#PQR' -> 'MNOabcdefghijklmPQR'
ok 13 - 'MNO\#\#T\#\#PQR' -> 'MNO\#abcdefghijklm\#PQR'