perl -pi -e 's,^\s+$,,' file.txt