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