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


in reply to Don't Use Regular Expressions To Parse IP Addresses!

If you do use a regular expressions to parse IPv4 in decimal, you could use:
(1?\d\d?|2[0-4]\d|25[0-5])(\.(1?\d\d?|2[0-4]\d|25[0-5])){3}