Select Code to Download

s/(?<=[[:alpha:]])\s+(?=[[:alpha:]])/ /g;

#!/usr/local/bin/perl -w
use strict;
...
      mine:  0 wallclock secs ( 0.03 usr +  0.00 sys =  0.03 CPU) @ 13
+333.33/s (n=400)
            (warning: too few iterations for a reliable count)