use POE;

POE::Session->create(
   inline_states => {
       trats_  => sub {$M=$_[HEAP]->{m}.$M},
       _start  => sub {
                   $_[HEAP]->{m} = $_;
                   $_[KERNEL]->yield(trats_);
               },
   }
) for split('',"\nrekcaH EOP rehtonA tsuJ");

POE::Kernel->run() and print $M;
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)