if ($line =~ m/^(\d+) (\d{2}\.\d{2}\.\d{4}) (.*?) (\d{2}\.\d{2}\.\d{4}) (-?[.\d]+,?\d*)$/) {
    print "($1 | $2 | $3 | $4 | $5)\n"
}