tamed indentation/whitespace

perl.html.markdown

@@ -49,7 +49,7 @@ my %fruit_color = ("apple", "red", "banana", "yellow");
 my %fruit_color = (
   apple  => "red",
   banana => "yellow",
-        );
+);
 # Scalars, arrays and hashes are documented more fully in perldata.
 # (perldoc perldata).
 
@@ -60,17 +60,17 @@ my %fruit_color = (
 
 # Perl has most of the usual conditional and looping constructs.
 
-if ( $var ) {
+if ($var) {
   ...
-} elsif ( $var eq 'bar' ) {
+} elsif ($var eq 'bar') {
   ...
 } else {
   ...
 }
 
-unless ( condition ) {
+unless (condition) {
   ...
-               }
+}
 # This is provided as a more readable version of "if (!condition)"
 
 # the Perlish post-condition way
@@ -78,19 +78,19 @@ print "Yow!" if $zippy;
 print "We have no bananas" unless $bananas;
 
 #  while
-  while ( condition ) {
+while (condition) {
   ...
-               }
+}
 
 
 # for and foreach
 for ($i = 0; $i <= $max; $i++) {
   ...
-               }
+}
 
 foreach (@array) {
   print "This element is $_\n";
-               }
+}
 
 
 #### Regular expressions
@@ -130,7 +130,9 @@ my @lines = <$in>;
 
 sub logger {
   my $logmessage = shift;
+
   open my $logfile, ">>", "my.log" or die "Could not open my.log: $!";
+
   print $logfile $logmessage;
 }