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