#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

my $cmd = '&COMPAREEQUAL(First-param.one, Second.param,Third-param)';

my $cms_re = qr{
    (?: [&( ] )?
    (
        [^(), ]+
    )
    (?: [(,)] )?
}x;

say for $cmd =~ m{$cms_re}g;

##</code><code>##

$ pm_cmd_args_regex.pl
COMPAREEQUAL
First-param.one
Second.param
Third-param