local $_ = "this \\b is an\b\b\b correct\b\b\b\b\b\b\b\borrect usage";
print "$_\n\n";
s/(.\\b)//g;
print $_;