#!/bin/sh

echo -n $1 | perl -pe 's[\\(?:([0-7]{1,3})|(.))] [defined($1) ? chr(oct($1)) : $2]eg' 2> /dev/null || echo -n $1