Select Code to Download

 ___          __
    |   /\   |  \ |   |
    |  /__\  |__/ |---|
 \_/  /    \ |    |   |

@n=([1032,168],[33598800,50428013],[228994128,52434173],[1088485074,
50427365]);$b=6;@c=' -/\\_|'=~/./g;for(@n){for$n(@$_){map{$h=int$n/$b
**$_;$n-=$b**$_*$h;$c[@c]=$h}reverse 0..12;push@p,map{$c[$_]}@c[
reverse$b..$#c];$#c=$b-1}$p[@p]="\n"}print@p;

#!/usr/bin/perl

...
'CHARS'=~/./g;for
(@n){for$n(@$_){map{$h=int$n/$b**$_;$n-=$b**$_*$h;$c[@c]=$h}reverse 0.
+.
LIMIT;push@p,map{$c[$_]}@c[reverse$b..$#c];$#c=$b-1}$p[@p]="\n"}print@
+p;