use 5.010;
use utf8::all;

my $string = q[\334ber@n\374ber.com];
$string =~ s/\\([0-7]+)/chr oct $1/eg;
say $string;