my $var;

close STDOUT;
open(STDOUT, '>', \$var) || die "Unable to open STDOUT: $!";

print "Hollow World\n";
print "And another\n";

close (STDOUT);

my @data = split "\n", $var;

local $" = '|';
print STDERR "<@data>\n";