sub clean_data
{
        my @fields = map
        {
                s/\s+/ /g;
                s/\|/-/g;
                s/^\s//;
                s/\s$//;
        } @_;
}

##</code><code>##

foreach my $field ( @fieldnames )
{
	my $value = $q->param($field);
	clean_data( $value );
	push( @rec, $value );
}