# filter0.pl - Don Yang (uguu.org)
#
# 05/12/02

open I, "<" . ($#ARGV >= 0 ? $ARGV[0] : "-");
open O, ">" . ($#ARGV > 0 ? $ARGV[1] : "-");

while(<I>)
{
   chomp;
   s/\s\+$//;
   print O "$_\n";
}

close;