my $cmd = $_;
while (my ($subcmd, $args) = each %CMDARGS) {
$subcmd .= " \\K", $args .= ' ' unless $subcmd =~ m/\\K/;
$cmd =~ s/\b$subcmd/$args/;
}
my $cmd = $_;
while (my ($subcmd, $args) = each %CMDARGS) {
$subcmd .= " \\K", $args .= ' ' unless $subcmd =~ m/\\K/;
$cmd =~ s/\b$subcmd/$args/;
}