my $script = "./script1.pl";

open(SCRIPT1, "$script|") || die "Can't run '$script': $!\n";
while(<SCRIPT1>) {
    $results[0]{result} .= $_;
}
close(SCRIPT1);

##</code><code>##

my $script = "./script1.pl";

my @script_output;

open(SCRIPT1, "$script|") || die "Can't run '$script': $!\n";
while(<SCRIPT1>) {
    chomp();
    push (@script_output, $_);
}
close(SCRIPT1);

$results[0]{result} = join($/, @script_output);