my $output = `(perl $rpla >/dev/null 2>&1 && echo a) & (perl $rplb >/dev/null 2>&1 && echo b)`;
my $success = $output =~ /a/ && $output =~ /b/;