my $string = "\321\201\321\202\321\200\321\203\320\272\321\202\321\203\321\200\320\260";
$string =~ s/\\([[:digit:]]{3})/sprintf "%c", oct($1)/ge;
print $string;