Hey!

First, you really should post some piece of code showing what you tried to do.

Secondly, maybe another title for the subject would more appropriate, as you can easily solve your problem without regular expressions.

A simple string concatenation while looping over your file could do the trick:

perl -pi.bak -e "chomp;$_ .= qq/<br>\n/" your_file.txt   # Win32
perl -pi.bak -e 'chomp;$_ .= "<br>\n" your_file.txt   # *nix
[download]

while (<>)
{
 chomp;
 print "$_<BR>";    # (Optional: print "$_<BR>\n"; for readability)
};
[download]

my @File=<INPUT>;
close INPUT;
chomp(@File)
{
 local $"="<BR>";   # (Optional: local $"="<BR>\n"; for readability)
 print "@File<BR>"; #(Optional: print "@File<BR>\n"; for readability)
};
[download]

ChOas

#!/usr/bin/perl -p
chop;
$_.="<br>\n";
[download]

Jeroen
"We are not alone"(FZ)

Thanks for all the answers
But I should have ask it differently,
and I will put in a piece of code
in order to be more specific.
I have this code:

#!/usr/local/bin/perl

use DBI;
use strict;

my $field;
my $temp;
my $i;
my $query;
my $name;
my $value;
my $glossary_id;
my $inbuf;
my %Form;
my $pair;
read(STDIN,$inbuf,$ENV{'CONTENT_LENGTH'});
my @pairs = split(/&/,$inbuf);
foreach $pair (@pairs) {
($name,$value)=split(/=/,$pair);
$value=~tr/+/ /;
$value=~s/%(a-fA-F0-9a-fA-F0-9)/pack("C", hex($1))/eg;
$Form{$name}=$value;
}
$ENV{INFORMIXSERVER} = "develop_remote";
my $database = "test";
my $dbh = DBI->connect("dbi:Informix:$database");
if ($Form{field}=~/editor_comment/){
$query = "update glossary_develop set($Form{field}) = (\"$Form{value}\") where glossary_id=$Form{glossary_id}";
}
else {
$query = "update glossary_develop set($Form{field}) = ($Form{value}) where glossary_id=$Form{glossary_id}";
}
my $rows_affected = $dbh->do($query);

and the query is no good if it breakes in to few
line in the middle of the value: ($Form{value})

Hope I am more specific now and hope you can help me
again.
Thanks.
Tsvika.

BAD - BAD - BAD

Your really should consider using CGI.pm module instead of rolling your own. This issue has been discussed over and over at perlmonks.

Not only that it will make your scipt clearer, but it will also avoid you a lot of troubles (from Perl and from the monks) :-)

<kbd>--
PerlMonger::Paris(http => 'paris.pm.org');</kbd>

Hey man - In order to make your posts more readable, use the <CODE> Code Tags</CODE>

Check out the writeup formatting tips on the preview pages.

You'll agree, that

#!usr/bin/perl
print "bunch of stuff";
print "and some more";
[download]

Looks better than

>#!usr/bin/perl print "bunch of stuff"; print "and some more";

Cheers,
ML

if ($mr_leisure) { bow; }
[download]

this is still not finished