in reply to Regular expression question

Assuming you have the string in $s: 
my %on = ();
$s .= ",";
unless ($s =~ s/NONE,//) {
  $on{$_} = $s =~ s/-$_,// for
    qw( config files params driverPath appPath batchPath );
}
die if length $s;

[download]
_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

In Section Seekers of Perl Wisdom