get_data(
  pre => undef,
  while => sub {
      my $content = shift;
      $content =~ tr/ / /s;
      return $content;
  },
  post => sub {
      my $instances = shift;
      write_log("Found $count instances");
  },
);