18:30 >perl 820_SoPW.pl

Before applying the substitutions, $new_msg is:
I have <c> apples, <p> pineapples, and <t> pieces of fruit.
Yes, I do have <c> apples!

After applying the substitutions, $new_msg is now:
I have 7 apples, 5 pineapples, and 12 pieces of fruit.
Yes, I do have 7 apples!

18:30 >