#!/usr/bin/perl


while(<STDIN>){
	while($_ =~ s/\040{4,4}/\t/){}
	print $_;
}