$s = eval {
    do {
        $O = 0, $C = 0, $t = 'This is my 100th PM post';
#                             012345678901234567890123
        sub {
            $O++, $C = @_ ? $C : eval
# { do { my $k =
pack( 'b*',
                vec( pack( 'b*', $_{64} ), $O - 1, 1 ) ? $_{1} : $_{8} )
              . $C
              . pack( 'c', vec( pack( 'b*', $_{64} ), ( $O - 1 ) % 3, 8 ) )
              . pack( 'b*',
                vec( pack( 'b*', $_{64} ), $O - 1, 1 ) ? $_{8} : $_{1} )
              . vec( $t, $O - 1, 8 );
# print " $k"; eval $k; } }
          }

      }
};