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

while (<DATA>) {
    my @parts = split;
    #print "@parts";
    (my $eins = $parts[0]) =~ s~^h(0401[0-9.]+?)\.gz$~$1~;
    my $zwei = $parts[5];
    my $drei = $parts[6];
    print "3. $eins $zwei $drei\n";
}

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