my @fields = split /\x01\x01/, $line;