my $logdata=<<EOLOG;
pass{BS}{BS}{BS}{BS}{BS}{BS}
hee{BS}llo, I'll be bnack{BS}{BS}{BS}{BS}ack next saturday.{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}
www.yahoo.com "keyloggers" + "linux"{BS}{BS}{BS}
EOLOG

my $clean;
while ($logdata=~/\G(\{BS}|.)/sg) {
	length ($1)>1 && (length($clean)==0 || substr($clean,length($clean)-1,1,""))
	or $clean.=$1;
}
print $clean;