Select Code to Download

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

use strict;
use warnings;
...
print 0x00 => 'foo';  #prints 0 not 0x00
# print 1a2b => 'foo'; #doesnt work, cant have alphas when the key sta
+rts with a digit (0x excepted)
# print 1a-2b => 'foo'; #doesnt do what you might think, evals to 0

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