while(/\t/g){ s/\t/$-[0]%4?" "x(4-$-[0]%4):" "x4/e; }