Remove trailing whitespace

pae2xml.pl

-#!/usr/bin/perl 
+#!/usr/bin/perl
 
 
 # Copyright (C) 2003 Rainer Typke
 #pae2xml is licensed under the terms of the GNU General Public License Version
 #2 as published by the <a href="http://www.fsf.org/" target="_top">Free Software Foundation</a>.
 #This gives you legal permission to copy, distribute and/or modify <em>pae2xml</em> under
-#certain conditions. Read 
+#certain conditions. Read
 #the <a href="http://www.gnu.org/copyleft/gpl.html" target="_top">online version of the license</a>
 #for more details. pae2xml is provided AS IS with NO WARRANTY OF ANY KIND,
 #INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY, AND FITNESS FOR A PARTICULAR PURPOSE.
@@ -51,6 +51,7 @@ RISM SIGN.: $rismsig\n\n";
 }
 
 
+
 sub parse_incipits {
   my ($incipits, $comp, $title, $sonst, $libsig, $rismsig) = @_;
 
@@ -91,9 +92,9 @@ sub parse_pe {
     $keysig =~ s/(\s+)|&//gs;  # it is unclear what the & means, so we'll ignore it for now.
     $keysig =~ s/\[|\]//gs; # IGNORING brackets around a key sig.
     $fifths = $fif{$keysig};
-    if ($fifths eq "") { $fifths = "0"; 
+    if ($fifths eq "") { $fifths = "0";
 		       print_error("Strange key signature '$keysig'.\n");}
-    
+
     foreach $_ ($rismsig,$title,$inr,$instr,$comp,$encoding_date,$libsig,$sonst)
     {
         s/
@@ -250,7 +251,7 @@ sub parse_notes {
       ($combdur, $note, $tuplet, $numval) = ($1,$2,$7,$8);
       #print "i=$combdur, n=$numval; $note / $tuplet\n";
       my $ind_dur = duration($combdur)/$numval;
-      # my $norm_notes = 
+      # my $norm_notes =
       my $act_notes = $numval;
       parse_note($note, $keysig, '<tuplet type="start"/>', '				<time-modification>
 					<actual-notes>'.$act_notes.'</actual-notes>