or download this
>perl -E"say '.' x rand(80) for 1..10" |perl -lpe " /(.)/ and $_ = spr
+intf qq{%-68s #$1},$_ "
......................................................................
+...... #.
...
........................................................
+#.
......................................................................
+... #.
.........................
+#.