A dot is special in a regex, and will match anything but a newline. So, it will match a digit as well, and that's what is happening here. To match a dot, either put a backslash in front of it, or write is as [.].

You also might want to use Regexp::Common and $RE{net}{IPv4} to match an ip number.

Abigail