while (<$in>) {
    chomp(my $line=$_);
    next unless length $line;
    print;
}

__END__
# please excuse this stuff here, just doing some pmdev testing with this node :-)
# it will be removed soon.

# No indent
 # single space
  # two spaces
   # three spaces
    # four spaces
# No indent
 # single space
  # two spaces
   # three spaces
    # four spaces