perl -pi -e 'split/\t/;map{$_.=q/ /x4;substr$_,0,4*int length($_)/4}@_' filename.txt