C:\>perl  -MBenchmark -E"Benchmark::cmpthese(1000000, { 'Regex'=>sub {print '1' =~ /^\d$/}, 'Liste'=>sub{p
rint '1' ~~ [0..9]} })"
111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
...
111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
11111111111111111111111111111111111111111111111111111111111111111111111111111111           Rate Liste Regex
Liste  436110/s    --  -71%
Regex 1490313/s  242%    --