#!/usr/bin/perl use Regex; push @times, time; my $e = Regex->parse(q{((0|1|2|3|4|5|6|7|8|9)+|::)*}); push @times, time; my $m = NFA->compile($e); push @times, time; $s = '::1234::5678901234567890::::1235467890::888:'; my $r = NFA_Exec->match($m, $s); push @times, time; print "String `$s' ", $r ? 'matched' : 'did not match', "\n"; $r = ($s =~ /^(?:\d+|::)*$/); push @times, time; print "String `$s' ", $r ? 'matched' : 'did not match', "\n"; my $j = 0; foreach $t (@times) { $ot = $t; $t -= $j; $j = $ot; } print "Elapsed: (@times) seconds.\n";