in reply to Forcing a regex to fail

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

[download]
Update: Oh, I see this is tye's solution, as well.
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom