my ($www,$tld) = $referer =~ /(www\.)?perlmonks\.(\w+)/i; [snip] my $redirurl = "http://${www}perlmonks.$tld/index.pl?node_id=$node";