#!/usr/bin/perl

while ($l = <DATA>)
{
    while( grep { $_ }
           ( $l =~ s/^((?:....)*?)\t/$1    /g ,
             $l =~ s/^((?:....)*?.)\t/$1   /g ,
             $l =~ s/^((?:....)*?..)\t/$1  /g ,
             $l =~ s/^((?:....)*?...)\t/$1 /g ) ) { }
    print( STDOUT $l );
}

__DATA__
	a
 	a
  	a
   	a
		a
	 	a
	  	a
	   	a