Select Code to Download

#!/usr/bin/perl
my $test = "hello there ass\x08\x08wesome";
...
}

print "AFTER:  $test, ", "(length: " . length($test) . ")\n";

BEFORE: hello there awesome, (length: 23)
AFTER:  hello there awesome, (length: 19)