You are only reading one line at a time, so you are never going to be able to match against \n{2}. See perlvar on $/ about paragraph mode ($/ = "") or slurp the whole file and loop with //g.