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