get_data(
  pre => undef,
  while => '$_ =~ tr/ / /s;',
  post => 'write_log("Found $count instances");',
);