From:	Jeff Lowrey	Date:	Sat Oct  7 14:04:00 2006
Subject:	Re: [MacPerl-AnyPerl] Let perl replase words

$head =~ s/($replace)/<u>$1<\/u>/gi;