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