diff -up perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm.ip-validation perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm
--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm.ip-validation	2011-03-02 21:26:43.000000000 +0100
+++ perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm	2011-03-02 21:28:51.000000000 +0100
@@ -146,9 +146,9 @@ sub ip_number {
 
     return 'FM_IP_NUMBER1' unless $data =~ /^[\d.]+$/;
 
-    my @octets = split /\./, $data;
+    my @dots = ($data =~ tr/.//);
 
-    return 'FM_IP_NUMBER2' unless scalar @octets == 4;
+    return 'FM_IP_NUMBER2' unless scalar @dots == 3;
 
     foreach my $octet (@octets) {
         return $fm->localise("FM_IP_NUMBER3", {octet => $octet}) if $octet > 255;