/^\s*([-A-Z_a-z][A-Z_a-z0-9]*|\d+)\s*/

##</code><code>##

use strict;
use warnings;

local $\="\n"; local $,="\t";
print Zaxo => 'Juerd';
print Zax0 => Ju3rd => 'Foo';
print -abcde=>'foo';
print v9.100.101.109.101.114.112.104.113.9 => v65; 
print 0 => 'foo';
print v48.65 => 'A0';
print 0x00 => 'foo';  #prints 0 not 0x00
# print 1a2b => 'foo'; #doesnt work, cant have alphas when the key starts with a digit (0x excepted)
# print 1a-2b => 'foo'; #doesnt do what you might think, evals to 0

##</code><code>##

[perl #16010] v-strings left of a => don't get quoted.