#!/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") }