s/{BS}/\b/g;
$_ = reverse $_;
my $k = 0;
s/(\010+)(??{ $k += length $+; "([^\010]{0,$k})" })(?{ $k -= length $+ })//g;
$_ = reverse $_;