As you seem to have simply pasted your programming assignment here without showing where you have the actual problem, here are some interesting modules that will mostly solve this problem when put together in the correct sequence. Finding that sequence is called "programming" and something you have to do yourself.

• Parse::AccessLog
• Domain::PublicSuffix