Select Code to Download

use strict;
use warnings;
...
$message =~ s{$rxToChange}{<item>$^N</item>}g;

print $message;

The quick brown fox jumps over the lazy dog. The quick brown fox jumps
+ over the lazy dog. The quick brown fox jumps over the lazy dog. The 
+quick brown fox jumps over the lazy dog. The quick brown fox jumps ov
+er the lazy dog. The quick brown fox jumps over the lazy dog. The qui
+ck brown fox jumps over the lazy dog. 
<list>The quick brown fox jumps over the lazy dog. 
...
<item>The quick brown fox jumps over the lazy dog. </item>
<item>The quick brown fox jumps over the lazy dog. </item></list>
The quick brown fox jumps over the lazy dog. The quick brown fox jumps
+ over the lazy dog. The quick brown fox jumps over the lazy dog. The 
+quick brown fox jumps over the lazy dog. The quick brown fox jumps ov
+er the lazy dog. The quick brown fox jumps over the lazy dog.