#!/usr/bin/perl -wni
s/\r\n//;
if (length>1) {
    print substr($_." " x 100, 0, 100)."\n"
}