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