perl -1 "while (<>) s/\t(\*w+)/      \1/g;s/\t\s(w+)/    \1/g;print}" myfile