my $read; 
my $result; 
my @lines; 
 
open(OUTPUT, "ipvsadm -L -n|"); 
@lines = <OUTPUT>; 
close(OUTPUT); 
 
print @lines;

my @output; 
open(OUTPUT, "ipvsadm -L -n|") or die "unable to open pipe to ipvsadm $!"; 
 
while(my $line = <OUTPUT>) { 
   push @output, $line if $line =~ /Masq 0/; 
} 
print $_ for @output;

open(OUTPUT, "ipvsadm -L -n|") or die "unable to create pipe to ipvsadm $!"; 
my @output = grep{ /Masq 0/ } <OUTPUT>; 
print $_ for @output;