if ($temp[4] ne '=0'){

##</code><code>##

if ($_ =~ /^(\@pRECTYPE=\"SBSB\")(.*)(\@pWMDS_SEQ_NO)(1)(=\d{1})(.*)(\@pWMDS_SEQ_NO)(2)(=\d{1})(.*) .....