# Regex for an ip address
my ($ip) = $q->remote_addr() =~ /^((\d{2,3}\.){3}\d{2,3})$/;
[download]