いろいろありがとうございます。

>>677ですが、
ない知識を絞りに絞って以下の形にしてみました。
ご意見お願いします。

if (substr($msg,0,8) eq 'HTTP/1.1') { #←最初にチェックするのがいいかな？
$msg_size = length($msg);
} elsif (0x0000 <= hex($switch) && hex($switch) <= 0x0198) {
$tmpSize = $var[hex($switch)];
if ($tmpSize == -1) {
$tmpSize = unpack("S1", substr($msg, 2, 2));
}
$msg_size = $tmpSize if ($tmpSize <= length($msg) );
dumpData(substr($msg, 0, $msg_size)) if ($config{'debug'} >= 2);
} elsif (substr($msg,0,4) eq $accountID) {
$msg_size = 4;
# } elsif ($switch eq "0066") { 　　←あほ
# $msg_size = 3; ←あほ
}

if ( !defined($msg_size) ) {
print "Unparsed packet - $switch\n";
} elsif (length($msg) < $msg_size) {
# pass
} elsif ($switch eq "0069") {
$conState = 2;