my $command = '/usr/local/bin/program_with_multiline_output'; chomp(my(@output) = `$command`); my $output = join($/, grep(/./, @output)); my $returned = $? >> 8; print "Returned: [$returned]\n"; print "Message: [$output]\n";