Select Code to Download

use warnings;
use strict;
...
    $line =~ s|([a-z])([A-Z])|$1$SPACER$2|g;  ## break at camelCase
    print $line . $SPACER;
}

__DATA__
The Tell-Tale LiverEdgar Allen MyselfFALSE! nervous I had been and am;
+ but am I mad?   The disease had sharpened, not destroyed my senses..
+.   Above all was the sense of hearing acute.How then am I mad?!     
+    Hearken! and observe how calmly, I can tell you the story.

The Tell-Tale Liver

...