;;; ;;; ;;; ;; ;;;;; ; ; ;;; ;;;; ;;;;;
;; ;open _ ,$0;; ; ;;;;; ; ;;;;; ; ;;;; ; ;;;;; ;;; ;;;;; ;; ;;;;;;; ;;;;; ; ;;while (<_>) { ;;;;; ; ;;;;; ; ;; ;;; ;; ; ;;;;;;; ;;;s; ; ;g;;; ; ;;; ;;;;; ;;;;;;;; ; ;;s'([; ])(\d)' $1x$2 ; 'ge;; ; s'\S';'g; ;;;;; s; ;#;g; ; ;;;;; ; ;;;;; ; ;;;;; ; ;;;;; ; s;\;; ;g; ;;; ; ;;; ;;; ;;; ;;; ;; print ;} ;;;;; ;; 3. Non-whitespace characters are substituted by semicolons.
Download the source. |