Select Code to Download

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

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

Do not use Win32