my $num_subs = 0;
{
   local @ARGV = "foo_test";
   local $^I = "";
   local $/;
   $num_subs += s/foo/bar/g while <>;
}