my @rec = split /\^/;