my $hex = "0x3cb37180";
my $dec = oct $hex;

say $dec;                 # 1018392960
say sprintf "0x%X", $dec; # 0x3CB37180