#!/usr/bin/perl

open FILE, $ARGV[0] or die "Could not open '$ARGV[0]': $!\n";

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