Hate to say this, but it's not close. Looks like you are yet to grasp some of the Perl basics.

I would recommend the great utility HTML Tidy for doing these kind of stuff instead of rolling your own.