>perl -wMstrict -le
"my $foo = 'stuff';
 my $str = 'xxx XXYY yyy';
 $str =~ s'XXYY'$foo';
 print qq{'$str'};
"
'xxx $foo yyy'