perl -e '$cmd=q|&COMPAREEQUAL(First-param.one, Second.param,Third-param)|;
print qq|$_;\n| for
      $cmd=~/.(\w+)(?:[\s\(,]+([^\s,!@#\$%&\*]*))*/'