Select Code to Download

#!/usr/bin/perl -w

...
5   City  _____________
6   State  _____________
7   _______________________________________   _

Benchmark: timing 10000 iterations of READAR, REFOR, REINFOR, REWHILE.
+..
    READAR:  1 wallclock secs ( 2.80 usr +  0.00 sys =  2.80 CPU) @ 35
+71.43/s (n=10000)
     REFOR: 43 wallclock secs (42.95 usr +  0.00 sys = 42.95 CPU) @ 23
+2.83/s (n=10000)
   REINFOR: 35 wallclock secs (34.33 usr +  0.00 sys = 34.33 CPU) @ 29
+1.29/s (n=10000)
   REWHILE: 35 wallclock secs (34.77 usr +  0.00 sys = 34.77 CPU) @ 28
+7.60/s (n=10000)