#!/usr/bin/perl use strict; use warnings; my $number = 0x31fff;