Re: searching for TLDs incorrectly

[Thomas Mon]

This would be more complete (adding i for case-insensitivity):

$domain      =~ s/^http\:\/\///i; #Kill http://
$domain      =~ s/^www\.//i; # Kill www.