Here is how I did it in Random NonHome Nodes.

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

-Blake