RosettaCodeData/Task/Literals-Integer/Perl/literals-integer.pl

print "true\n" if ( 727 == 0x2d7 &&
                    727 == 01327 &&
                    727 == 0b1011010111 &&
                    12345 == 12_345   # underscores are ignored; useful for keeping track of places
                  );