get_data(
  pre => undef,
  while => sub { # 'handle' may be a better key, IMO
    tr/ / /s;
  },
  post => sub {
    write_log("Found $count instances");
  },
);

##</code><code>##

my $_get_data = sub { ... };