Your code as provided runs fine for me:

$ perl 11155543.pl

  <p>foo</p>
  <p>bar</p>
  trololo

OK
$
[download]

If that isn't what you want/expect then you will need to show what you do expect also.