if ($field =~ m/\r/) { 
	$field =~ s/\n//g;
	$field =~ s/\r/<br>/g;
}
elsif ($field =~ m/\n/) { 
	$field =~ s/\n/<br>/g;
}