while (<>) {
        print "$1\n" while s/^(.{60})//;
        print "$_\n" if $_;
}