;3%5;3%5;3%5;2 ;5 ; ;%4;3%5;4 ;5
;2 ;open _ ,$0;2 ; ;5 ; ;3;2 ;1%2;4 ; ;5 ;3 ;5 ;2 ;7 ;5 ; ;;while (<_>) { ;5 ; ;5 ;1%6;2 ;3%5;2%7; ;7 ;2;s;%; ;g;3 ;1%7;2; ;5 ;8 ; ;;s'([; ])(\d)' $1x$2 ; 'ge;; ; s'\S';'g; ;4; s; ;#;g; ; ;5 ; ;5 ; ;5 ; ;5 ; s;\;; ;g; ;3 ; ;3%5;3%5;3%5;3%5;; print ;}%5;5%3;2
This Perl program displays "secunet" in large letters.
##### ##### ##### # # # #### ##### #
# # # # # # # # ## # # # # # # # # # # # # # # ###### ##### ####### # # # # # ####### # # # # # # # # # # # # # # # # # # # # # # # # ##### ##### ##### ##### # # ##### ###
Download the source. |