while (chomp(my $in = <DATA>)) {
  next if $in =~ /^\s*$/;
  last if $in eq '0';
  print "Ausgabe:\t$in\n";
}
_ _DATA_ _
test
trassd
1

sdfsdf
0
das darf nicht mehr komen
_ _END_ _
Ausgabe:	test
Ausgabe:	trassd
Ausgabe:	1
Ausgabe:	sdfsdf