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