#!/usr/bin/perl

use strict;
use warnings 'all';
 
use Benchmark;
 
use vars qw /$ip_v $ip_re @data/;

my $quad_v   = q  '(?:25[0-5]|2[0-4]\d|1\d\d|\d\d?)';
my $quad_re  = qr '(?:25[0-5]|2[0-4]\d|1\d\d|\d\d?)';
 
my $sep_v    = q  '\.';
my $sep_re   = qr '\.';
 
   $ip_v     = qq "$quad_v$sep_v$quad_v$sep_v$quad_v$sep_v$quad_v";             
   $ip_re    = qr "$quad_re$sep_re$quad_re$sep_re$quad_re$sep_re$quad_re";
 
   @data = map {join "." => map {int rand 1000} 1 .. 4} 1 .. 1_000; 
 
timethese -5 => {
    var  =>  'for (@data) {/$ip_v/}',
    re   =>  'for (@data) {/$ip_re/}',
};
__END__