# Opposite code:
$_=q qJust another Perl hacker,q;until($i eq
length){s/(.)(.{$i})/$2$1/g;++$i}print+$_.$/