perl -i.bak -pe 'goto LINE unless /\S/' file