Нужно преобразовать "Имя Отчество" в "И.О.".
Если имя_отчество состоит из двух слов, то преобразует нормально.
Для одного слова "Александр" выдает "А.р." или "..",
если покопаться в запросе (\w*\s*).
Почему-то не берет первый знак, а проверяет все выражение.
#!/usr/bin/perl
use strict;
use encoding "utf8";
#my $str = "Александр Михайлович";
my $str = "Александр";
$str =~ /^(.)\w+\s+(.)/;
print $1,".\n";
print $2,".\n";
1;