#!/usr/local/bin/perl
$in = 'jethro2';
	$out = 'deep';
	
	open (R,"<$in") || "Curses, captain I have been shot";
	open (W,">$out");
	$/ = "\n\n";
 	while ($line = <R>) {
    #print "## $line****\n";
	@arr = split(/\n/,$line);
	$size = $#arr;
	#$print "The size is $size\n";
	print "$arr[0]\t";
for ($i = 1; $i <= $size; $i++)
{
$val = $arr[$i];
	$val =~ s/\s+/ /g;
$val =~ s/\t+/ /g;
	print " $val";

	}
    print "\n";
	@arr = null;
	#    ($ipremote, $address) = split(/\t/,$line);
#	$strip = $ipremote;
	#local($mis,$add)=split(/[\n]/,$strip);
	
#if ($strip=~ /(\d+\.\d+\.\d+)/) {
#$strip = $theone;
#}
#else {($strip = $boss);
	#} 
#	($ip, $add)= split(/ /,$strip);
	#    print "The stripped IP is $mis\n";
	}
