{Update: I read the parent too quickly. Ovid, your code doesn't work. It parses to print STRING; ), STRING;, does it not?}

Well, that doesn't solve the question of $userinput containing something like I am so 1337!) && `rm -rf /` && print q(

At minimum, with q() or single quotes, whatever character(s) close the quotes have to be escaped.

--
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."