This would be more complete (adding i for case-insensitivity):
$domain =~ s/^http\:\/\///i; #Kill http:// $domain =~ s/^www\.//i; # Kill www.
This archive was generated by hypermail 2.1.3 : Tue Oct 19 2004 - 23:37:04 EDT