From 4b9acffba9e05282bd511cf7cc31ee34559d4bd0 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 2 Dec 2016 08:59:26 -0800
Subject: [PATCH 1/1] handle journal names with odd characters

---
 lib/Reference/Field/Journal.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Reference/Field/Journal.pm b/lib/Reference/Field/Journal.pm
index ad5639a..eb27680 100644
--- a/lib/Reference/Field/Journal.pm
+++ b/lib/Reference/Field/Journal.pm
@@ -84,7 +84,7 @@ sub journal{
      local $_ = $params{output};
      if (/bibtex/) {
          my $title = $self->{reference}->{journal}->{medlineabbr} || $self->{reference}->{journal}->{title};
-         $title =~ s/\s//g;
+         $title =~ s/[^A-Za-z0-9]//g;
          return $title;
      } elsif (/medline/) {
          return $self->{reference}->{journal}->{medlineabbr} || $self->{reference}->{journal}->{title};
-- 
2.39.2