$ perl -we' local $/ = "\n.\n"; print "Eingabe: "; chomp(my $input = ); print "== Ausgabe:\n$input\n==\n";' Eingabe: 2 3 4 . == Ausgabe: 2 3 4 ==