my $last = '';
do { say if $_ ne $last; $last = $_ }
  for grep /\S/, <$fh>;