Select Code to Download

# range A : 1-3
# range B : 5-6
my $range_string = '-AAA-BB---';

use warnings;
use strict;
...
print "Array took:",timestr($td),"\n";

print system('perl -v');

>>Strings:
10000 : 274788
...
Binary build 822 [280952] provided by ActiveState http://www.ActiveSta
+te.com
Built Jul 31 2007 19:34:48
Haha. I am fully aware how old this is, but you try convincing my work
+ that..