use Net::OpenSSH;

my $ssh = Net::OpenSSH->new('us@pp');
my @out = $ssh->capture('grep', '-i', '-e', '^AAA=', '-e', '^XXXXX AAA
+=', "$dir/$file");
[download]

Completely rewrote this answer. Original blockquoted below.

Running your second code set (the one that doesn't work), I think you have a typo or two:

#!/usr/bin/perl
use strict;
use warnings;

# Assumptions
my $dir = '/home';
print "\$dir = [$dir]\n";

my $file = 'test.dat';
print "\$file = [$file]\n";

# Proceed
my $regexpaaa=qq/-i -e \'\^AAA=\'/ -e \'\^XXXXX\ AAA=\'/;
print "\$regexpaaa = [$regexpaaa]\n";

my @command2 = ("ssh us@pp -o BatchMode=yes grep $regexpaaa $dir/$file
+");
print "\@command2:\n";
my $command2idx = 0;
foreach my $command2 (@command2) {
    print "    [$command2idx] = [$command2]\n";
    $command2idx++;
}

exit;
[download]

Won't even run:

S:\Steve\Dev\PerlMonks\P-2017-06-08@1920-ssh-grep>perl grep2.pl
syntax error at grep2.pl line 13, near "qq/-i -e \'\^AAA=\'/ -e "
Can't find string terminator "'" anywhere before EOF at grep2.pl line 
+13.

S:\Steve\Dev\PerlMonks\P-2017-06-08@1920-ssh-grep>
[download]

This is why you should post a Short, Self-Contained, Correct Example.

Hint: You also have an error on the @command2 =line. Pay attention to what is different between that line in your first example and your second.

---

Original answer left for reference:

Adjusted your code to show what it's doing (with some assumptions added):

#!/usr/bin/perl
use strict;
use warnings;

# Assumptions
my $dir = '/home';
print "\$dir = [$dir]\n";

my $file = 'test.dat';
print "\$file = [$file]\n";

# Proceed
my $regexpaaa=qq/-i -e \'\^AAA=\'/;
print "\$regexpaaa = [$regexpaaa]\n";

my @command2 = ("ssh us\@ip -o BatchMode=yes grep $regexpaaa $dir/$fil
+e");
print "\@command2:\n";
my $command2idx = 0;
foreach my $command2 (@command2) {
    print "    [$command2idx] = [$command2]\n";
    $command2idx++;
}

exit;
[download]

Then ran it:

S:\Steve\Dev\PerlMonks\P-2017-06-08@1920-ssh-grep>perl grep1.pl
$dir = [/home]
$file = [test.dat]
$regexpaaa = [-i -e '^AAA=']
@command2:
    [0] = [ssh us@ip -o BatchMode=yes grep -i -e '^AAA=' /home/test.da
+t]

S:\Steve\Dev\PerlMonks\P-2017-06-08@1920-ssh-grep>
[download]

I presume you send @command2to the shell for execution and trap the feedback.

Looks to me like maybe your sshcommand might need some quote encapsulation -- but I'm no Linux expert, and, as noted above, that's not a Perl issue.

Hello hveneticus,

Welcome to wonderful world of Perl. your question in not that much related to Perl. I would recommend to you to take a look on the Perl module Net::OpenSSH::Parallel.

With this module you can create parallel ssh connections apply your commands and collect the data in parallel. How? Glad you ask, here are some examples that I have done for related questions Net::OpenSSH::Parallel with sudo commands, multiple machines disk space alert and Best module to execute administrator commands on external operating systems (Linux).

Hope this helps.

Unfortunately there is not much Perl in this question...

Please try some basic debugging and print the content of your command and try if it works without Perl.

I think you're messing up the shell / grep call.

> Probably exists some perl module that would help me, but I can't use them. Sure I can't.

So you want a non Perl solution?

Not sure if you should ask here then.