Select Code to Download

Select or download this

my( $name, $ascii );
foreach ( qw/ONE TWO THREE FOUR/ ) {
...
  last if $ascii =~ /\d{6,}/;
}

Select or download this

Benchmark: timing 100000 iterations of InLoop, OutLoop...
    InLoop:  4 wallclock secs ( 3.23 usr +  0.00 sys =  3.23 CPU) @ 30
+959.75/s (n=100000)
...
    InLoop: 372 wallclock secs (322.27 usr +  0.09 sys = 322.36 CPU) @
+ 31021.22/s (n=10000000)
   OutLoop: 411 wallclock secs (347.93 usr +  0.23 sys = 348.16 CPU) @
+ 28722.43/s (n=10000000)