computer/programs/useless/secunet_contest/entry_1

;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