Select Code to Download

use 5.014;  # needs (?^mods:pattern) -- also // and s///p from 5.10

...
ok udp7 substitution
all ok udp5 and iipp4 and foo98x yea
nothing to see here, move along

c:\@Work\Perl\monks\nikolay>perl templated_substitute_2.pl
before substitution(s): 'all bad ip6 and zero and zot5 and foo4x thud'
...
  after s/// try: 'nothing to see here, move along'
after substitution(s): 'nothing to see here, move along'
------------