use IPC::Open3;
use strict;
use warnings;

my $pid = open3(\*WRITER, \*READER, \*ERROR, "netstat");
while (my $line = <READER>) {
    print $line;
}
waitpid($pid, 0);

##</code><code>##

use strict;
use warnings;

while (<>) {
    print "[", $_, "]\n";#in your case, you would save this to an array, or if you want scalar reset local $/
}

##</code><code>##

dir|perl -w foo.pl