# perl -e 'while(<>){s/\t/   /g;print}' < file > file.tmp;\
> mv file.tmp file;