$cmd[0] = ($cmd[0] =~ /.*/g)[0]

##</code><code>##

$cmd[0] =~ s/\n.*/s;

##</code><code>##

$cmd[0].=comb(/\N*/);