~/perl/test> cat nurzahlen.pl #!/usr/bin/perl use strict; use warnings; use Benchmark qw/cmpthese/; cmpthese(-5, {    regexpZiffer => sub { my $var = '1555000000'; my $onlydigits = 1 if($var =~ m/^\d$/);},    regexpStern  => sub { my $var = '1555000000'; my $onlydigits = 1 if($var =~ m/^\d*$/);},    regexpPlus   => sub { my $var = '1555000000'; my $onlydigits = 1 if($var =~ m/^\d+$/);},    regexpInv    => sub { my $var = '1555000000'; my $onlydigits = 1 unless ($var =~ m/\D/);},    inttest      => sub { my $var = '1555000000'; my $onlydigits = 1 if(int($var) eq $var);}, }); ~/perl/test> ./nurzahlen.pl                  Rate regexpStern regexpPlus    inttest  regexpInv regexpZiffer regexpStern  1049899/s          --        -2%        -4%       -28%         -37% regexpPlus   1069469/s          2%         --        -2%       -27%         -36% inttest      1096502/s          4%         3%         --       -25%         -35% regexpInv    1459240/s         39%        36%        33%         --         -13% regexpZiffer 1678905/s         60%        57%        53%        15%           --