Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    else { print "$match not replaced.\n"; }
}

Select or download this

4 matches for >>-GREETING1- James -POSITION- -GREETING2- -FOO-<<:
$VAR1 = [
...
    WAS : HAI James -POSITION- -GREETING2- -FOO-
    NOW : HAI James -POSITION- HELLO -FOO-
FOO not replaced.