This is the same question I submitted incorrectly to macperl-porters, thinking that was the place for an issue of translating PERL code that works correctly on Unix to Macperl. The script is by Matt Wright, "WWWboard". The problem has to do with getting the body of a previous posting quoted properly in a followup posting. This is the code I thought I had identified as containing the problem, but one of my kind responders said I might need to post more code. if ($quote_text == 1) { @chunks_of_body = split(/\<\;p\>\;/,$hidden_body); foreach $chunk_of_body (@chunks_of_body) { @lines_of_body = split(/\<\;br\>\;/,$chunk_of_body); foreach $line_of_body (@lines_of_body) { print NEWFILE ": $line_of_body\n"; } print NEWFILE "\n"; } } The split function never seems to find any < etc., or insert any colons, except at the beginning of the text. $hidden_body is set to $body when the posting is to contain a quote. $body comes from what someone has typed into a TEXTAREA on the previous posting. Here is the beginning of the program, as modified by me: #!/usr/local/bin/perl ############################################################################## # WWWBoard Version 2.0 ALPHA 2 # # Copyright 1996 Matt Wright mattw@worldwidemart.com # # Created 10/21/95 Last Modified 11/25/95 # # Scripts Archive at: http://www.worldwidemart.com/scripts/ # ############################################################################## # COPYRIGHT NOTICE # # Copyright 1996 Matthew M. Wright All Rights Reserved. # # # # WWWBoard may be used and modified free of charge by anyone so long as # # this copyright notice and the comments above remain intact. By using this # # code you agree to indemnify Matthew M. Wright from any liability that # # might arise from it's use. # # # # Selling the code for this program without prior written consent is # # expressly forbidden. In other words, please ask first before you try and # # make money off of my program. # # # # Obtain permission before redistributing this software over the Internet or # # in any other medium. In all cases copyright and header must remain intact.# ############################################################################## # Define Variables $basedir = "WebServer 6gig:Web Site:WebSTAR Folder:wwwboard"; $baseurl = "http://www.draco.com/wwwboard"; $cgi_url = "http://www.draco.com/cgi-bin/wwwboard.cgi"; $mesgdir = "messages"; $datafile = "data.txt"; $mesgfile = "wwwboard.html"; $faqfile = "faq.html"; $ext = "html"; $title = "Draco Casablanca Dealers Forum"; # Done ########################################################################### ########################################################################### # Configure Options $show_faq = 1; # 1 - YES; 0 = NO $allow_html = 1; # 1 = YES; 0 = NO $quote_text = 1; # 1 = YES; 0 = NO $subject_line = 0; # 0 = Quote Subject Editable; 1 = Quote Subject # UnEditable; 2 = Don't Quote Subject, Editable. $use_time = 1; # 1 = YES; 0 = NO # Done ########################################################################### # Get the Data Number &get_number; # Get Form Information &parse_form; # Put items into nice variables &get_variables; # Open the new file and write information to it. &new_file; # Open the Main WWWBoard File to add link &main_page; # Now Add Thread to Individual Pages if ($num_followups >= 1) { &thread_pages; } # Return the user HTML &return_html; # Increment Number &increment_num; ==== Want to unsubscribe from this list? ==== Send mail with body "unsubscribe" to macperl-webcgi-request@macperl.org