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