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$; )) }
In reply to another meaning of space by mayaTheCat
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |