use Regexp::Common; if ($tag =~ /^$RE{num}{int}{-sep => ','}$/) { ... } [download]
Abigail
In reply to Re: Match number with commas by Abigail-II in thread Match number with commas by Anonymous Monk