You slurp the file though - and you still pay the read-line-by-line penalty. Here's one that slurps as well but counts using tr.

$ perl -lp0777e'$_=tr/\n//' foo
[download]

Makeshifts last the longest.