use Regexp::Common; /^$RE{list}{-sep => ','}{-pat => '\w+'}$/ [download]
Abigail
In reply to Re: Regular Expression Question by Abigail-II in thread Regular Expression Question by TASdvlper