perl -p -i -e 's!\s+$!\n!;' $*
