use strict;
use warnings;

my $constant = '$$';
my $count = -1;
{
		local $/ = $constant;
		$count += () = <DATA>;
}
print "$count\n";

__DATA__
$$ ss $$ ss
$$ ss
ss

##</code><code>##

my $count = do { local $/ = $constant; () = <DATA> } - 1;