=====
print "(From: $privMsgUser) : $privMsg\n";
pmprint($privMsgUser,$privMsg) ; ＜＝追加

} elsif ($switch eq "0098") {

print "$chat\n";
openchatprint($chat) ;＜＝追加

} elsif ($switch eq "008E" && length($msg) >= unpack("S1", substr($msg, 2, 2))) {

====
以下をsub dumpData の上あたりに追加
sub pmprint {
my $privMsgUser = shift;
my $privMsg = shift;
my $dump;
$dump = "(From: $privMsgUser) : $privMsg\n";
open DUMP, ">> pm.txt";
print DUMP $dump;
close DUMP;
}
sub openchatprint {
my $chat = shift;
my $dump;
$dump = "$chat\n";
open DUMP, ">> chat.txt";
print DUMP $dump;
close DUMP;
}
これでokでしょうか？