1,1,0,0,0,0,0,1,1,1,1,0,0,0,1,1,1,1,0,0
0,0,1,1,0,0,1,1,0,0,1,1,0,1,0,1,0,1,1,0

##</code><code>##

Odp-
kIr+

##</code><code>##

(
  110011 => 'I',
  111101 => 'u',
  11 => '*',
  01 => '/',
  ... etc ...,
)

##</code><code>##

my %translation = (
  # as in OP
);

my %reverse_translation;
for ( keys %translation ) {
  my $bin = join '', @{ $translation{$_}} ;
  $reverse_translation{$bin} = $_;
}

while ( <DATA> ) {
  my @segments = unpack 'A6A6A6A2', join '', split /,/;
  print $reverse_translation{$_} for @segments;
  print "\n";
}

__DATA__
1,1,0,0,0,0,0,1,1,1,1,0,0,0,1,1,1,1,0,0
0,0,1,1,0,0,1,1,0,0,1,1,0,1,0,1,0,1,1,0