for ($input eq "end")

##</code><code>##

while ($input ne "end")