#!/usr/bin/perl -p
1 while s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e;
