Select Code to Download

use RTF::Writer qw( rtfesc );

...
   \'\fs24\b',
   rtfesc("Anniversary-Date: $anniv_date\n")   
);