push @data, [ ( split /\x1F/, $line ) ];