Select Code to Download

use strict;
use warnings;
...
my @converted = map {$_ =~ /^0/ ? oct($_) : $_ }  @arr;
print "@arr\n";
print "@converted\n";

C:\>perl practice.pl
10 20 0b1101 0xF 023
10 20 13 15 19