perl -wle 'print 23+"0E0" if "0E0"' 23