my $promiscuous_price = qr/
  (?:
    $RE{num}{real} #matches 123456.78
    | $RE{num}{real}{-radix => qr/[.]/}{-sep => qr/[,]/} #matches 123,456.78
    | $RE{num}{real}{-radix => qr/[,]/}{-sep => qr/[.]/} #matches 123.456,78
  )
  /x;