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