1 while s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e;