my $bin = "10110";
my $dec = oct "0b$bin";