use warnings;
use strict;

open(my $INPUT_DATEI, "<$ARGV[0]") or die "Fehler beim oeffnen: $!";
open(my $OUTPUT_DATEI, ">meine_output.txt") or die "Fehler beim oeffnen: $!";

while (my $OUT = <$INPUT_DATEI>) {

    my ($variable_1, $variable_2, $variable_3);
    chomp($OUT);
    $OUT=~ s/^\t+//g;
    $OUT=~ s/^\s+//g;

    if ($OUT =~ /HANS/ ){
        $OUT =~ s/HANS//;
        $variable_1 = $OUT;
        if ($variable_1 =~ /^8888/ ){
            $variable_2 = substr($variable_1,0,4);
        }
        elsif ($variable_1 =~ /^7777/ ){
            #$variable_2 = "FEHLER";
            print $OUTPUT_DATEI "Fehler";
        }
        elsif {($variable_1 =~ /^9999/ ){
            $variable_2 = substr($variable_1,0,3);
        }
    }
    if ($OUT =~ /DAMPF0000/ ){
        $OUT =~ s/DAMPF0000//;
        $variable_3 = $OUT;
    }
    if ($OUT =~ /GASSE/ ){
        print $OUTPUT_DATEI "ZUSATZ_FORMAT_A $variable_2 ZUSATZ_FORMAT_B $variable_3 ZUSATZ_FORMAT_C\n";
    }
}
close $INPUT_DATEI;
close $OUTPUT_DATEI;