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