My cable went out, and alas I had nothing to do.

$_=join("",<DATA>),'Soooooooooo',seek(DATA,0,0);s
/Z/#/;s/#|%|[0-9]\n//g;'Bored.....';eval;__DATA__
for (#    <DATA>    )        {  my $x      ;    3
cho#p  ,  $#a           =              #cho#p  ;5
s#/Z/$a#/g   ;  f#or    (    split              4
(      //   ) ) {$_#[ 0#+$x   ]#  = $#_  +   0 #2
if  (/[$##a]/     )  ; $##x#++  ; ##}     }     0
$_[   $_] #=       (#       #    #  $_#[#$_*#2] 6
.$#_#[#  $_ *#2 #+1   #   #   #]              #)8
#+32       f#o#r  # (0..@_/2)   #   #   ;##     7
print    map( c#hr, @#_[   0.#.@_   /2  ]  ) # ;9
#
[download]