anyway this is more compact!

undef  $/   ;   open      (   d    ,   $0     ) ; $_ =  <d>;
close  (       d  )        ;   s/[^\040]+/_/g     ;  for$+ (
0 ..      7   ){   $; = 7   - $+ ;      $-   =   $;  +     1
; s/_\040{$-}/$;/g }  for$+(0..23){$; = substr  ($_,$+*2,2);
print (    chr  (    $; =~      /^00$/   ?32:96+oct$;   )) }
[download]