Hi Mr. Muskrat,
Thank you for your reply. I did tried to use HTML::Parser, but it was ended up pretty ugly, so I did not include that part of code.
Do you have any recommend link for HTML::Parser?
Apologize for not mentioning what perl version I am using at the first place.
I am using v5.8.8.
And I've tried on the solution you provided, it seems that the version that I am using does't support Regexp::Common.
Also thanks for pointing out those mistakes I made! And I totally forgot to turn on strict and warnings!