Perl Как заменить enter на

Как заменить в переменной все знаки перевода коретки на <br>

$text=~s/\x0D/<br>/g;$text=~s/\x0A//g;
Я из под винды работаю:)

sub parse_form
{
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
$i_mode = 0;
}
else
{
if ($ENV{'REQUEST_METHOD'} eq "GET")
{
$i_mode = 1;
}
else
{
$i_mode = 2;
}
}
if ($i_mode == 0)
{
read(STDIN, $c_buffer, $ENV{'CONTENT_LENGTH'});
}
else
{
if ($i_mode == 1)
{
$c_buffer = $ENV{'QUERY_STRING'};
}
}
@h_pairs = split(/&/, $c_buffer);
foreach $h_pair (@h_pairs)
{
($c_name, $c_value) = split(/=/, $h_pair);
$c_value =~ tr/+/ /;
$c_value =~ s/\%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$c_value =~ s/</</g;
$c_value =~ s/>/>/g;
$c_value =~ s/&#/& #/g;
$c_value =~ s/\r//g; # \r - 0x0d (!)
$c_value =~ s/\n/<br>/g; # \n - 0x0a (!)
$FORM{$c_name} = $c_value;
}
}

Зачем мне Post и Get?
Я с файлами работаю )

lamo ty de poterjalsja?
myl' mne na tot mail kotoryi u menja v registration

я пропал ?
это ты гдето забухал =).
ок. мылю второй раз.