Хотя 'length ()' - правильный ответ, который следует использовать в любом здравом коде, Ужас длины Абигейл следует упомянуть, хотя бы ради знаний Perl.
По сути, трюк состоит в использовании возвращаемого значения универсального оператора транслитерации:
print "foo" =~ y===c; # prints 3
y /// c заменяет все символы на себя (благодаря опции дополнения 'c') и возвращает количество замененных символов (так, по сути, длину строки).