#!/usr/bin/perl -w
use strict;
my $line;

do {
 $line=<STDIN>;
 chomp $line;
 print "Input: $line\n";
} until $line eq "ENDE" || $line eq "QUIT";