Thank you. It worked.

I am pretty new to regex and Perl, so I appreciate your help.