foreach my $line(@input)
{
	$line =~ tr/ /\t/s;			
}