you kept the @Clec_id variable

There were two reasons to keep that, but the most important reason was that it was presumably given its value in earlier code, so I'd have to copy from it anyway, not having access to the rest of the code to change it. (The other reason to keep it, of course, is that there was no compelling reason to do otherwise.)

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]