#!/usr/bin/env perl 
use strict;
use warnings;

use Benchmark 'timethis';

timethis (10_000_000, "valid_int ('18446744073709551614')");

sub valid_int {
    my $num = shift;
    return unless $num =~ /^\d+$/a;
    return int $num eq $num;
}

__END__

timethis 10000000:  8 wallclock secs ( 7.93 usr +  0.00 sys =  7.93 CPU) @ 1261034.05/s (n=10000000)