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