This is a Perl script that allows web page creation. I needed to use Perl because its flexibility for administrative purposes. I took a long look at what I was actually trying to do and changed:

$text =~ s!^(\015|\012)*!!s;

to this:

    $text =~ s!^(%%(.*?)%%)*!!s;

Thank you for your response. I will definately keep your suggestions in mind for my next project.