Thank You. Having these alternatives in my toolbox is comforting, and useful. I tried putting a Place Holder SYSTEM in the cmd , and then doing a substitution. It seems to work also. Your help is valuable.

foreach my $SYS (qw(ifeuu1 ifcau1 ifcaa1 mifuat aimuat timeuat)) {
$cmd=q|ssh -q SYSTEM perl -e \'print +\( stat \( \"Envs_SYSTEM.xml\" \
+)\)\[9\]\;\'|;
$cmd =~ s/SYSTEM/$SYS/g ;
print "$SYS:" . `$cmd` . "\n";
}
[download]