...
    if ( $command =~ m{^(?:set|add|del)$} ) {
...