Select Code to Download

#!/usr/bin/perl
print "Content-type: text/html\n\n";
...
s/lawyer/Banker/eig; s/will/Barney/eig; s/is/Was/eig;
}
print $new_comment;

...
}
print $new;