my $s = 'couldsomeonerecommendaworkingperlmoduletosplitconcatenatedwords';