Select Code to Download

sub operate (&@) {
  my $sub = shift;
  local $~;
  $~ = &$sub($_) for @_;
  return $~
}

use strict;
sub operate (&@) {
  my $sub = shift;
...
open FILE, $0;
my $count = operate { $~ + /operate/ } <FILE>;
print "Count = $count\n";

max = 645
string = 462671236452354
count = 4