@a = qx(COMMANDLINE);
print scalar @a;

##</code><code>##

$a = qx(COMMANDLINE);
print "<plaintext>$a";