Perl функция substr

#!/usr/bin/perl
use strict;

my $str="Проверка";
print substr($str,1,1),"\n\n";
exit;

Возвращает закращенный знак вопроса "?"
Локаль utf8, Ubuntu 6.06, Perl 5.8.7.

Задача преобразовать "Имя Отчество" в "И.О."