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