c:\@Work\Perl\monks>perl -wMstrict -le
"my $foo    = 'rm ';
 my $var    = \$foo;
 my $transf = '-R *';
 ;;
 print qq{A: >$$var$transf<};
 print 'B: >',  $$var.$transf,  '<';
 print 'C: >', '$$var'.$transf, '<';
"
A: >rm -R *<
B: >rm -R *<
C: >$$var-R *<