http://www.perlmonks.org?node_id=107928


in reply to (crazyinsomniac) Re: Cheesy Webring
in thread Cheesy Webring

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

In Section Code Catacombs