Select Code to Download

[dmandel@midgard dmandel]# time perl -e '$x=join("",(a..z))x100;  for
(1..100){$x =~ s/(.*?)I/$1/isge;}'
...
real    0m0.047s
user    0m0.050s
sys     0m0.000s

[dmandel@midgard dmandel]# perl -V
Summary of my perl5 (revision 5.0 version 8 subversion 2) configuratio
+n:
...
    /usr/local/lib/perl5/site_perl/5.8.2/i686-linux-thread-multi
    /usr/local/lib/perl5/site_perl/5.8.2
    /usr/local/lib/perl5/site_perl

[dmandel@midgard dmandel]# perl5.6.1 -V
Summary of my perl5 (revision 5.0 version 6 subversion 1) configuratio
+n:
...
    /usr/lib/perl5/vendor_perl/5.6.1/i386-linux
    /usr/lib/perl5/vendor_perl/5.6.1
    /usr/lib/perl5/vendor_perl