#...viel Programm...benötige $energie:
open my $in, "< logfile" or die "geht nicht\n";
while (<$in>){if (/Energie: (\d+)/){$energie = $1; last}}
...
#...mehr Programm...benötige $gradient:
open my $in, "< logfile" or die "geht nicht\n";
while (<$in>){if (/Gradient: (\d+)/){$gradient = $1; last}}