----------------------------
Original code:

sub add_email_message {

$subject = "New Ad";
$message = "The following ad (number $new_counter) was added.

$form_data{'caption_header'} $form_data{'caption'}
$form_data{'text'}

    ...(notice assignment to $message has not reached end quote)... 
------------------------------------------
New code:

sub add_email_message {

$peg_nl = $form_data{'text'};
$peg_nl =~ s/\n/ /g;

$subject = "New Ad";
$message = "The following ad (number $new_counter) was added.

$form_data{'caption_header'} $form_data{'caption'}
$peg_nl

    ...(notice assignment to $message has not reached end quote)... 

----------------------------------