s/\z|\Q$l/$&$l/while$l=<>;print