perl -pi.bak -e 's/\\(\d+)/chr(oct($1))/e' filename