if ($input eq "\e[D\n")