Naja, wie man von STDIN liest, weist Du ja schon.
while() habe ich Dir genannt. Wie man eine Schleife beendet, kann man z.B. dort nachlesen: http://perldoc.perl.org/perlsyn.html#Loop-Control
Dort findet sich auch Beispiele, die als Grundlage für meinen Lösungsansatz dienen können.
Und der Teil darüber hat auch ein paar Worte zu while() übrig: http://perldoc.perl.org/perlsyn.html#Compound-Stat...