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

##</code><code>##

deescape '\334ber@n\374ber.com'