#---------------------------------------------------#
# REC2LINE
#---------------------------------------------------#
sub rec2line
{
my (%trec) = @_;
my ($newline) = "";
my ($line);
	
foreach $line (keys %trec)
{		
  if ($newline ne "")
  {
    $newline .= "|";
  }
				
  $newline .= "$line=$trec{$line}";
} # end foreach
		
return ("$newline");
} # end sub