Also, since you're writing in Perl and not a shell script, you can do a way with the tempfile and grepping.

open my $DATA, "wlsendpts blah blah blah |" or die;
while (<$DATA>) {
   next unless /End/ && !/tcp3/ && /reg/;
   # do whatever with this line of output
}
[download]