$s = "this is an\b correct usage";
$s =~ s[.\cH][]g;
print $s;

this is a correct usage