--- sfdc/sfdc	2018-06-28 14:37:26.434918400 +0100
+++ sfdc-patched/sfdc	2018-06-28 14:42:58.370540300 +0100
@@ -484,7 +484,8 @@
     while (my $line = <SFD>) {
 
       ++$line_no;
-      
+      $line =~ s/\r//g; 
+
       for ($line) {
           /==copyright\s/ && do {
             ( $$result{'copyright'} = $_ ) =~ s/==copyright\s+(.*)\s*/$1/;