use strict;
use warnings;

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

__DATA__
$$ ss $$ ss
$$ ss
ss