Select Code to Download

#!/usr/bin/perl -w                          # how to (ab)use map 
use strict; 
...
map 
 
BEGIN{ $b=1 << (@_ = split//, "map") }

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

my $b = 8; 
 
...
  $a = 0; 
  print "\n" 
}

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

qw[
  8161644161 
...
  0161216121a161 
  23416121a161
];

#!/usr/bin/perl -w 
 
use strict; 
...
0161216121a161 
0161216121a161 
23416121a161