c:\@Work\Perl\monks\nikolay>perl templated_substitute_2.pl
before substitution(s): 'all bad ip6 and zero and zot5 and foo4x thud'
  - warning: 'Use of uninitialized value in substitution iterator at templated_substitute_2.pl line
123, <DATA> line 1.'
  - for: (?^u:ip(\d)) => 'int pro-$1$2'
  - against: 'ip6'
  - 1 valid capture(s):  $1 '6'
  after s/// try: 'all bad ip6 and zero and zot5 and foo4x thud'
  - warning: 'Use of uninitialized value in substitution iterator at templated_substitute_2.pl line
123, <DATA> line 1.'
  - for: (?^u:zot(\d)) => 'bang-$2'
  - against: 'zot5'
  - 1 valid capture(s):  $1 '5'
  - warning: 'Use of uninitialized value in substitution iterator at templated_substitute_2.pl line
123, <DATA> line 1.'
  - for: (?^u:zero) => 'nada-$1'
  - against: 'zero'
  - no captures
  - warning: 'Use of uninitialized value in substitution iterator at templated_substitute_2.pl line
123, <DATA> line 1.'
  - for: (?^u:foo(\d)(\d)?(x)) => 'boo far-$1$2'
  - against: 'foo4x'
  - 3 valid capture(s):  $1 '4'  $2 undef  $3 'x'
  after s/// try: 'all bad ip6 and zero and zot5 and foo4x thud'
  after s/// try: 'all bad ip6 and zero and zot5 and foo4x thud'
after substitution(s): 'all bad ip6 and zero and zot5 and foo4x thud'
------------

before substitution(s): 'both ok iipp7 here and iipp8 too and foo42x also'
  after s/// try: 'both ok iipp7 here and iipp8 too and foo42x also'
  after s/// try: 'both ok inet proto-7 here and inet proto-8 too and foo42x also'
  after s/// try: 'both ok inet proto-7 here and inet proto-8 too and foo42x also'
  after s/// try: 'both ok inet proto-7 here and inet proto-8 too and foo42x also'
  after s/// try: 'both ok inet proto-7 here and inet proto-8 too and boo far-42 also'
  after s/// try: 'both ok inet proto-7 here and inet proto-8 too and boo far-42 also'
  after s/// try: 'both ok inet proto-7 here and inet proto-8 too and boo far-42 also'
after substitution(s): 'both ok inet proto-7 here and inet proto-8 too and boo far-42 also'
------------

before substitution(s): 'bad zot5 thing'
  after s/// try: 'bad zot5 thing'
  after s/// try: 'bad zot5 thing'
  - warning: 'Use of uninitialized value in substitution iterator at templated_substitute_2.pl line
123, <DATA> line 3.'
  - for: (?^u:zot(\d)) => 'bang-$2'
  - against: 'zot5'
  - 1 valid capture(s):  $1 '5'
  after s/// try: 'bad zot5 thing'
  after s/// try: 'bad zot5 thing'
  after s/// try: 'bad zot5 thing'
  after s/// try: 'bad zot5 thing'
after substitution(s): 'bad zot5 thing'
------------

before substitution(s): 'bad zero here'
  after s/// try: 'bad zero here'
  after s/// try: 'bad zero here'
  after s/// try: 'bad zero here'
  - warning: 'Use of uninitialized value in substitution iterator at templated_substitute_2.pl line
123, <DATA> line 4.'
  - for: (?^u:zero) => 'nada-$1'
  - against: 'zero'
  - no captures
  after s/// try: 'bad zero here'
  after s/// try: 'bad zero here'
  after s/// try: 'bad zero here'
after substitution(s): 'bad zero here'
------------

before substitution(s): 'some bad iipp3 and ip4 and foo22x and zot9 and udp2 so-so'
  - warning: 'Use of uninitialized value in substitution iterator at templated_substitute_2.pl line
123, <DATA> line 5.'
  - for: (?^u:ip(\d)) => 'int pro-$1$2'
  - against: 'ip4'
  - 1 valid capture(s):  $1 '4'
  after s/// try: 'some bad inet proto-3 and ip4 and foo22x and zot9 and udp2 so-so'
  - warning: 'Use of uninitialized value in substitution iterator at templated_substitute_2.pl line
123, <DATA> line 5.'
  - for: (?^u:zot(\d)) => 'bang-$2'
  - against: 'zot9'
  - 1 valid capture(s):  $1 '9'
  after s/// try: 'some bad inet proto-3 and ip4 and foo22x and zot9 and udp2 so-so'
  after s/// try: 'some bad inet proto-3 and ip4 and boo far-22 and zot9 and udp2 so-so'
  after s/// try: 'some bad inet proto-3 and ip4 and boo far-22 and zot9 and datagram-2 so-so'
  after s/// try: 'some bad inet proto-3 and ip4 and boo far-22 and zot9 and datagram-2 so-so'
after substitution(s): 'some bad inet proto-3 and ip4 and boo far-22 and zot9 and datagram-2 so-so'

------------

before substitution(s): 'ok udp7 substitution'
  after s/// try: 'ok udp7 substitution'
  after s/// try: 'ok udp7 substitution'
  after s/// try: 'ok udp7 substitution'
  after s/// try: 'ok udp7 substitution'
  after s/// try: 'ok udp7 substitution'
  after s/// try: 'ok datagram-7 substitution'
  after s/// try: 'ok datagram-7 substitution'
after substitution(s): 'ok datagram-7 substitution'
------------

before substitution(s): 'all ok udp5 and iipp4 and foo98x yea'
  after s/// try: 'all ok udp5 and iipp4 and foo98x yea'
  after s/// try: 'all ok udp5 and inet proto-4 and foo98x yea'
  after s/// try: 'all ok udp5 and inet proto-4 and foo98x yea'
  after s/// try: 'all ok udp5 and inet proto-4 and foo98x yea'
  after s/// try: 'all ok udp5 and inet proto-4 and boo far-98 yea'
  after s/// try: 'all ok datagram-5 and inet proto-4 and boo far-98 yea'
  after s/// try: 'all ok datagram-5 and inet proto-4 and boo far-98 yea'
after substitution(s): 'all ok datagram-5 and inet proto-4 and boo far-98 yea'
------------

before substitution(s): 'nothing to see here, move along'
  after s/// try: 'nothing to see here, move along'
  after s/// try: 'nothing to see here, move along'
  after s/// try: 'nothing to see here, move along'
  after s/// try: 'nothing to see here, move along'
  after s/// try: 'nothing to see here, move along'
  after s/// try: 'nothing to see here, move along'
  after s/// try: 'nothing to see here, move along'
after substitution(s): 'nothing to see here, move along'
------------