my $x = 30;
while (<STDIN>) {
  print "Vorher: $_\n";
  &Machwas();
  print "Nachher: $_\n";
} # while
sub Machwas {
  $_ = $x;
  if (/0/) { print "Null drinnen\n"; }
}