belize has asked for the wisdom of the Perl Monks concerning the following question:

I have a form that is using the POST method to add to a flat file database.

The parse subroutine uses the following lines:

$name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
I am having trouble because the output has far too many "returns" placed in it.

I am previewing the output prior to adding to the database by placing the values into another form. But, the "returns" (\n) are continually multiplied with each preview/modify so that what is finally printed into the flatfile has far to much space between what should only be paragraphs.

I placed print statements before and after the above lines and here is the output:




Nautical Inn Resort, located on Placencia Peninsula, Belize, offers be +ach accommodations, great dining, SCUBA diving, snorkeling, Jaguar Re +serve, Monkey River, Maya Ruins plus the culture of Garifuna drummers + and dancers all rolled into an exciting Belize vacation. You'll find + us where the Caribbean meets the jungle! Nautical Inn occupies 4 acres on Placencia Peninsula. Twelve beach fro +nt rooms have air conditioning, ceiling fans, modern bathrooms and gr +eat beds. Mahogany and wicker furniture are accented with a nautical +theme. The Oar House is the place for fine dining and Caribbean cockt +ails. The daily activity board lists tours and excursions to help you + see Belize from the reef to the rainforest.

Now, when I submit the preview form, the space between paragraphs is doubled. And if I use a modify form, the space is again doubled.

Can you explain what is going on?