$ perl -MData::Peek -we'my $pw = "QeTEv2804\c@\c@\c@"; DPeek $pw; DDisplay $pw; DHexDump $pw' PV("QeTEv2804\0\0\0"\0) "QeTEv2804\0\0\0" 0000 51 65 54 45 76 32 38 30 34 00 00 00 QeTEv2804...