while (<FH>) {
  print "BEVOR: $_";
  &Machwas();
  print "NACHHER: $_";
}
sub Machwas {
  # veraendere $_, z.B.
  $_ = 20;
} # Machwas