Комментарии к решению этой задачи привдены в тексте программы. Пример работы скрипта изображен на рисунке 1.

Текст программы:

#! perl -w
sub kolvo 
{
  
  chop(); #Удаление символа перевода строки
  #Определяем длину строки
  $nom = length($_);
  print "Количество символов: $nom\n";
}
print "Строка: \n";
$_ = <STDIN>;
kolvo;

Рис.1. Пример работы скрипта

Текст этой программы можно взять здесь.