#!/usr/local/bin/perl
# Sun Aug 21 16:33:18 JST 2005
# Copyright(C) 2005 Sato Makoto
# add whitespace after end of lines till $lines
$lines=280;

while(<>){
 $len = length;
 if ($len < $lines) {
   chomp $_;
   print;
   until($len == $lines) {
     print " ";
     $len++;
   }
   print "\n";
   } else {
  print;
  }
}