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