Es hat mir dann doch keine Ruhe gelassen, ich musste es gleich testen.

Schon die Änderung
open( my $datei,'<', 'kontrolle.lh');
brachte die Lösung, der Unterstrich wird brav mit übertragen.

Vielen Dank!

@Linuxer
Das Script mit der Logdatei klau ich mir dann mal für den Werkzeugkasten, wenn es recht ist ;-)

Gibt es einen empfehlenwerten Perl-Online-Grundkurs für den Perl-Anfänger mit Programmierkenntnissen?