while (<$FH>) {
   # Remove leading and trailing whitespace from line
   s/\s+$//;
   s/^\s+//;

   # skip blank lines
   next if /^$/;

   # do stuff
}