my $bs;
$bs = qr{ . (??{ $bs })? \cH }x;
$str =~ s/$bs//g;