do s[\\][\\\\]g followed by s['][\']g on the input string, then use single quotes to delimit it in your print statement.

The first substitution escapes the escape character, and the second escapes the single quote character. As these are the only two things that have special signifigance in a single quoted string, the script will print out exactly what they put in.

ObSecurityWarning: If the text input by user A will be seen over the web by user B, you almost certainly want to strip out some or all html tags, or someone could insert something like

<p onmouseover="location.refresh('http://www.goatse.cx')">Blah blah blah</p>

or worse. (Though I don't know much that's worse than having to look at the goatse.cx picture.) There are CPAN modules to do this, I believe.

--
Ryan Koppenhaver, Aspiring Perl Hacker
"I ask for so little. Just fear me, love me, do as I say and I will be your slave."