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