$char eq "\b" and chop($input), next;

##</code><code>##

$char =~ tr/\b\x7f// and chop($input), next;

##</code><code>##

Do not use Win32