#! perl -sw
use strict;

my @strings = map{"$_" x 200} 1 .. 3;
for (my $x=0; $x<length($strings[0]); $x+=60) {
  print join("\n",map(substr( $strings[$_],$x,60),0..2))."\n\n";
}