Modify Lightsquid perl script

I am looking for someone to modify the [login to view URL] in lightsquid. There is currently a routine around line 237 which allows for a list of domains to be inserted that will "clean" the results by stripping 3rd level and up domain names and replacing them with "www". Instead of maintaining said list I would like it to strip and combine everything above a second level domain name; ie [login to view URL] instead of [login to view URL] or images.google.com.