#!/usr/bin/perl
print "Content-type: text/html\n\n";

   ......This Works...................

$comment = "My lawyer is named will";

for ($new_comment = $comment) 
{
s/lawyer/Banker/eig; s/will/Barney/eig; s/is/Was/eig;
}
print $new_comment;