binmode STDOUT => ':utf8'; 
$_= shift; 
s/([\@\$%:])/\\$1/g; 
eval qq(print qq:$_:);