use Regexp::Common;
my $promiscuous_price = qr/
(?:
    $RE{num}{real}
  | $RE{num}{real}{-sep => ','}
  | ...
)
/x