open my $in, "< logfile" or die "geht nicht\n";
if ($brauchene){
 if ($brauchgrad){
  while (<$in>){such nach Energie und Gradient}
 }else{
  while (<$in>){such nach Energie}
 }
}elsif ($brauchgrad){
 while (<$in>){such nach Gradient}
}