#!/usr/bin/perl
use strict;
use warnings;

my $anz;

while (<DATA>) {
    if ( m~h(0401[0-9.]+?)\.gz                   # -> $1
          \s
          [-a-z0-9]{36}
          \s
          [-a-z0-9]{36}
          \s
          \d+
          \s
          \d+
          \s
          (\d+)                                  # -> $2
          \s
          ~x
      )
    {
        print "3. $1 $2 ";
        m~h0401[0-9.]+?\.gz
          \s
          [-a-z0-9]{36}
          \s
          [-a-z0-9]{36}
          \s
          \d+
          \s
          \d+
          \s
          \d+
          \s
          (.{$2})                                # -> $1
          ~x;
        print "$1\n";
    }
    else {
        print "nö\n";
    }

}

_ _DATA_ _
h040111.233001.gz bfb4e2e0-41f7-71d8-1c34-0aa0093f0000 cb32393c-5603-71d7-1bec-0aa01c1b0000 1 178260287 24 einrechner.einedomain.de 1 178260287