$ perl -l 629540.pl
1234    is hex
ABCD    is hex
0x1234  is not hex
foo     is not hex
0xABCD  is not hex
bar     is not hex