# teile Zeile an Tabulator und nimm die Elemente

    my ($fqdn) = (split /\t/, $line)[0];
print $fqdn;
    my ($svc_id) = (split /\t/, $line)[1];
print $svc_id;
    my ($comment) = (split /\t/, $line)[2];
print $comment;
    my ($url) = (split /\t/, $line)[3];
print $url;
    my ($pattern) = (split /\t/, $line)[4];
print $pattern;

my ($fqdn, $svc_id, $comment $url, $pattern) = split /\t/, $line;