you get a monkey to type in javascript you've got no chance turns out there's a little of the same in perl your task should you agree is to place the following function within code so as to skirt compilation complaints
sub mixedregex {
s[\\0([0-7]{3})][chr oct $1]egr;
}