--- a/materials/parsematerial.pl	Sun Mar 08 04:59:36 2015 +0200
+++ b/materials/parsematerial.pl	Sun Mar 08 05:00:16 2015 +0200
@@ -369,7 +369,6 @@
 ### Parse input materials
 ###
 my %data = ();
-
 my $name = "";
 while (<STDIN>)
 {
@@ -392,7 +391,6 @@
     {
       $data{$name}{"warmth"} = $1;
       $data{$name}{"toxicity"} = $2;
-      
       $data{$name}{"warmth"} =~ s/ +outfit$// if ($opt_strip);
     }
     elsif (/^Warmth\: *\(([a-z. ]+)\) *Toxicity\: *\(([a-z. ]+)\)/)
@@ -431,7 +429,6 @@
     {
       $data{$name}{"article"} = $1;
       $data{$name}{"type"} = $2;
-      
       $data{$name}{"article"} =~ s/ *$//;
     }
     elsif (/^Found nature\: *(Yes|No) *Lode name\: *([A-Za-z]+)/)
@@ -458,7 +455,8 @@
 
 # Sort materials by type
 my %matByType = ();
-foreach my $name (@entries) {
+foreach my $name (@entries)
+{
   push(@{$matByType{$data{$name}{"type"}}}, lc($name));
 }
 
@@ -518,7 +516,7 @@
     my $filename = $name.".mat";
     $filename =~ s/ /_/g;
     open(OUTFILE, ">", $filename) or die("Error opening file '$filename' ".$!."\n");
-    
+
     printf OUTFILE
     "MATERIAL STATS ($name):\n".
     "-------------------------------------------------------------------------------\n".
@@ -572,7 +570,8 @@
 elsif ($opt_mode eq "-table")
 {
   my $str = "";
-  foreach my $info (@fieldInfo) {
+  foreach my $info (@fieldInfo)
+  {
     $str .= sprintf("%-".$$info{"w"}."s | ", $$info{"s"});
   }
   print "$str\n";