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