my @info = $line =~ /^suchmuster1 =(\d+)/;
                push @info, $line =~ /^suchmuster2 (.+)/;
                push @info, $line =~ /^suchmuster3 (Hallo)/i;
               push @info, $line =~ /^suchmuster4 (Hello)/i;