diff --git a/R/out_parser.R b/R/out_parser.R
index fbf8966..7d0b684 100644
--- a/R/out_parser.R
+++ b/R/out_parser.R
@@ -68,10 +68,10 @@ out_parser <- function(out, field, clean = F) {
   ### Old regex, used for duplicate detection:
   # \\S*?[0-9@#$%]+[^\\s!?.,;:]*
   out$merged <- out$merged %>%
-    {if(clean == T) str_replace_all(.,"\\S*?[0-9@#$%]+([^\\s!?.,;:]|[!?.,:;]\\S)*", "")  else . } %>%
     str_replace_all("<.{0,20}?>", " ") %>%
     str_replace_all('(\\. ){2,}', '. ') %>%
     str_replace_all('([!?.])\\.','\\1') %>%
-    str_replace_all("\\s+"," ")
+    str_replace_all("\\s+"," ") %>%
+    {if(clean == T) str_replace_all(.,"\\S*?[0-9@#$%]+([^\\s!?.,;:]|[!?.,:;]\\S)*", "")  else . }
   return(out)
 }