$s = "\b\bthis is an\b correct\b\b\b usage\b\n\b2nd\n\b\b3rd\n";
$s =~ s/^[\b]+//mg;
1 while $s =~ s/[^\b][\b]//g;