computer/programs/useless/secunet_contest/entry_1

;;;     ;;;     ;;;     ;; ;;;;; ; ;    ;;;     ;;;; ;;;;;
;; ;;;;; ; ;;;;; ; ;;;;; ; ;;;;; ;  ;;;; ; ;;;;; ;;; ;;;;;
;; ;;;;;;; ;;;;; ; ;;;;;;; ;;;;; ; ;;;;; ; ;;;;; ;      ;;
;;;     ;;       ; ;;;;;;; ;;;;; ; ;;;;; ;       ;;; ;;;;;
;;;;;;;; ; ;;;;;;; ;;;;;;; ;;;;; ; ;;;;; ; ;;;;;;;;; ;;;;;
;; ;;;;; ; ;;;;; ; ;;;;; ; ;;;;; ; ;;;;; ; ;;;;; ;;; ;;; ;
;;;     ;;;     ;;;     ;;;     ;; ;;;;; ;;     ;;;;;   ;;

4. Blanks are substituted by '#'.

	s;%; ;g;
	s'([; ])(\d)' $1x$2 ; 'ge;
	s'\S';'g;
>	s; ;#;g;
	s;\;; ;g;

Download the source.