$sub_body =~ s/\n/<BR>/g;