next unless (s/\^/\^/g == 4);
    my @rec = split /\^/;