my $a = q#${system('rm -rf /')}#;
print "The command in \$a is $a\n";

##</code><code>##

The command in $a is ${system('rm -rf /')}

##</code><code>##

my $b = "The command in \$a is $a\n";