Once again... read the docs. perldoc -f sprintf. If the text of the element includes a % you won't get what you want.

You don't need sprintf at all in this case. my $content = $para->text()."\n"; will do just fine.