undef$/ ; open ( d , $0 ) ; $_= <d> ; close ( d ) ;s/[^\n ]//g ; s/ /0/g ; s/\n/1/g ; for $i ( 0 .. 23 ) { $a = substr ( $_ , 5 * $i , 5 ) ; print ( chr ( $a=~/0{5}/?32:(96+oct("0b$a")) ) ) };
In reply to the meaning of space by mayaTheCat
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |