D:\Development>perl5.8.5 -le "my $str='ba'.pack('U',0x0370).'!'; printf qq'$_ : %d\n', ord(substr($str,$_,1)) for 0..length($str)-1"
0 : 98
1 : 97
2 : 880
3 : 33

D:\Development>perl5.8.5 -Mbytes -le "my $str='ba'.pack('U',0x0370).'!'; printf qq'$_ : %d\n', ord(substr($str,$_,1)) for 0..length($str)-1"
0 : 98
1 : 97
2 : 205
3 : 176
4 : 33