>>43-44
my $dec = oct "0b$a";

http://mikeneko.creator.club.ne.jp/~lab/perl/numerical_transform/