> $text =~ s/\n/<br>/g;