#!/usr/bin/perl -w
# clean_eol.pl - Don Yang (uguu.org)
#
# Clean up end of line sequences and trailing whitespaces.
#
# 11/27/11

use strict;
while(<>)
{
	s/\s*$//s;
   print "$_\n";
}