my $VALUE  = qr/(?!\.(?![0-9]))(?:$QUOTED|$NUM)/;