while( my $zeile = <STDIN> ) { # solange einlesen, wie was eingegeben wird
    chomp $zeile;
    if( $zeile eq "WortZumAbbrechen" ) {
        last; # brich ab
    }else{
        # dein Rechner hier :)
    }
}