[james@adajio ~]$ cat test.pl
#!/usr/bin/perl

my $text = "No \x08\x08\x08 good";
1 while $text =~ s/.\x08//;
print "$text\n";

[james@adajio ~]$ ./test.pl
 good
[james@adajio ~]$