Select Code to Download

$ perl -lne '$c += () = /foo/g; END { print $c }'

my $c;
while (<>) {
    $c += () = /foo/g;
}
print $c, "\n";