I'm testing something that has not much to do with slashdot, but posting on slashdot will help me test it. However, there's currently no thread I care to post in, so a journal entry will have to do.

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