$string =~ s/\\([0-7]+)/chr oct $1/eg;