123456789101112131415161718
while (chomp(my $in = <DATA>)) { next if $in =~ /^\s*$/; last if $in eq '0'; print "Ausgabe:\t$in\n";}_ _DATA_ _testtrassd1sdfsdf0das darf nicht mehr komen_ _END_ _Ausgabe: testAusgabe: trassdAusgabe: 1Ausgabe: sdfsdf