Please share the 'of what' as I can't see the relevance in a thread devoted to encoding/decoding utf8.

Oh, yes. When I print the part you've labeled as non-printing, I see this:

#!/usr/bin/perl
use strict;
use warnings;
# 1046930

my $string = "This is what you have" . "\n";;
print $string;

#this part does not print:

substr($string, 5, 2) = "wasn't";         #change "is" to "wasn't"
print $string . "\n";

substr($string, -12) = "ondrous";        #"this wasn't wondrous"
print $string . "\n";


substr($string, 0, 1) = "";            #delete first character
print $string . "\n";


substr($string, -10) = "";            #delete last 10 characters
print $string . "\n";


#printing problem end here


=head out:

This is what you have
This wasn't what you have

This wasn't whondrous
his wasn't whondrous
his wasn't

=cut
[download]

...which is at some variance with what your comments suggest you expected.

This makes no sense as a reply to what I wrote, nor does it make any sense in the context of this thread.

If you'd care to clarify your intent, that would be good. :-)

Iam triyng to make a perl site, with examples, this is another one of the samples on perll cookbook and they don't work, and iam asking for help, this one was used on the wrong place, my apologies. Other think I bought a license of Mirc, and i can't use it because it was stolen electroniclly, I don't know were to ask for help, any ideas? I usally put my head intgo work when this thinks happen so:

#!/usr/bin/perl
use strict;
use warnings;

#extract column with unpack
$a = "To be or not to be";
$b = unpack("x6 A6", $a);  #skip 6, grab 6
print $b;

($b, $c) = unpack("x6 A2 x5 A2", $a);   #forward 6, grab 2; backward 5
+, grab 2
print "$b\n$c\n";
[download]

errors:

Global symbol "$c" requires explicit package name at 7.pl line 10.

Global symbol "$c" requires explicit package name at 7.pl line 11.

Execution of 7.pl aborted due to compilation errors.