How to (ab)use map

[Erudil]

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