use Encode qw();
    use Encode::Escape qw();
    decode('Latin1', decode('unicode-escape', 'Walther-Straub-Institut f\x{fc}r Pharmakologie und Toxikologie, Ludwig Maximillians-Universit\x{e4}t M\x{fc}nchen, Germany'))
    # returns a Perl string