@tcpalive = grep { /\b01\s/ } @tcpstatus;