use strict;
use warnings;

my $str='\334ber@n\374ber.com';
$str =~ s/\\(\d{3})/pack('U', oct('0'.$1))/eg;

binmode STDOUT, ":encoding(UTF-8)";
print $str;