#!/usr/bin/perl -w                          # how to (ab)use map 
use strict; 
 
map{ 
  map{ 
    map{ 
      y;$_=map{}(/^?.*/);$_=1612a45368054;d; 
      $_ = (++$a == 1 ? $b-- : 0) + hex $_; 
      $_ = $a & 1 ? $" x $_ : "_\/" x $_; 
      print 
    } split//; 
  } /../g; 
  $a = 0; 
  print $/ 
}

split /_|\s+/, <<map; 
.map?()map_.1(1{1)map{map_.1{map{map{map_.1{map{map{map  
.1{/{()/_.1{map{1}map_*map{map{1}map_*map{map{1}map_{^)map{1}map 
map 
 
BEGIN{ $b=1 << (@_ = split//, "map") }

##</code><code>##

qw[
  .map?()map 
  .1(1{1)map{map 
  .1{map{map{map 
  .1{map{map{map 
  .1{/{()/ 
  .1{map{1}map 
  *map{map{1}map 
  *map{map{1}map 
  {^)map{1}map 
]; 

##</code><code>##

my $b = 8; 
 
foreach (@array) { 
  my $a; 
  foreach (/../g) { 
    foreach (split //) { 
      tr|map{}(/^?.*/)|1612a45368054|d; 
      $_ = (++$a == 1 ? $b-- : 0) + hex $_; 
      $_ = $a & 1 ? ' ' x $_ : '_/' x $_; 
      print 
    } 
  } 
  $a = 0; 
  print "\n" 
}

##</code><code>##

tr|map{}(/^?.*/)|1612a45368054|d; 
$_ = (++$a == 1 ? $b-- : 0) + hex $_; 
$_ = $a & 1 ? ' ' x $_ : '_/' x $_;

##</code><code>##

qw[
  8161644161 
  81412141612161 
  81216121612161 
  81216121612161 
  81252445 
  81216121a161 
  0161216121a161 
  0161216121a161 
  23416121a161
];

##</code><code>##

#!/usr/bin/perl -w 
 
use strict; 
 
my $b = 8; 
 
foreach my $line (<DATA>) { 
  chomp $line; 
  my $a = 0; 
  foreach my $num (split //, $line) { 
    my ($multiplier, $char); 
    $a++; 
    if ($a == 1) { 
      $b--; 
      $multiplier = $b + hex $num; 
    } else { 
      $multiplier = hex $num; 
    } 
    if ($a & 1) {  
      $char = ' '; 
    } else { 
      $char = '_/'; 
    } 
    print $char x $multiplier; 
  } 
  print "\n"; 
} 
 
exit 1; 
 
__DATA__ 
8161644161 
81412141612161 
81216121612161 
81216121612161 
81252445 
81216121a161 
0161216121a161 
0161216121a161 
23416121a161