use strict;
my %test;
$test{bell} = 'this is my \007';
$test{bell} =~ s!\\(0\d\d)!chr($1)!ge;
print $test{bell} . "bell\n";