in reply to regex'ing source code

How about this?

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