my $char = '<BR>';
s/\n/$char/g;