$packet =~ s/^./X/;