foreach $line (@lstlines) {
　　　　　　　　($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
　　　　　　　　$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$ptw,$others) = split(/<>/,$line);
　　　　　　　　if ($psp =~ /Nc/ ) { next }

一つ目の追加したところです。
個人的にココの、最初の行の「}」が
足りないと思うのですがどうでしょうか？
もう少し下までコピペする必要があるのなら
指定していただければそこまで張ります＾＾

▼関連発言
│
└◆601:あの･･･ [戒] 05/23 01:41
　└◆602:Re:あの･･･ [moon] 05/23 08:41
　　└◆603:Re[2]:あの･･･ [戒] 05/23 18:39
　　　└◆604:Re[3]:あの･･･ [moon] 05/24 08:54
　　　　└◆605:Re[4]:あの･･･ [戒] 05/24 13:19
　　　　　└◆606:Re[5]:あの･･･ [moon] 05/24 13:52
　　　　　　└◆607:Re[6]:あの･･･ [戒] 05/24 14:38
　　　　　　　└◆608:Re[7]:あの･･･ [moon] 05/24 14:47
　　　　　　　　└◆609:Re[8]:あの･･･ [戒] 05/24 14:54
　　　　　　　　　└◆610:Re[9]:あの･･･ [moon] 05/24 17:23
　　　　　　　　　　└◆611:Re[10]:あの･･･ [戒] 05/24 18:07
　　　　　　　　　　　└◆612:Re[11]:あの･･･ [moon] 05/24 18:44
　　　　　　　　　　　　└◆613:Re[12]:あの･･･ [戒] 05/24 19:09
　　　　　　　　　　　　　└◆614:Re[13]:あの･･･ [moon] 05/24 19:19
　　　　　　　　　　　　　　└◆615:Re[14]:あの･･･ [戒] 05/24 19:29<-last