Select Code to Download

#!/usr/bin/perl
use strict;
...
}

exit;

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>

#!/usr/bin/perl
use strict;
...
}

exit;

S:\Steve\Dev\PerlMonks\P-2017-06-08@1920-ssh-grep>perl grep1.pl
$dir = [/home]
...
    [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>