use open ":utf8";
use utf8;
open (FILE, '<slovo.txt');
@slovo = <FILE>;
close FILE;
$text = ucfirst"@slovo";
print $text;
open f, ">ucfirsted.txt";
print f "$text\n";
close f;
<STDIN>;

тестовое слово
текст брать из файла
не получается
файл с текстом

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use open qw /:utf8 :std/;

$\ = "\n";
open my $F, '<', '82_utf8.txt' or die "open error: $!";
chomp (my @lines = <$F>);
close $F;
@lines = map {ucfirst $_} @lines;
print join ' : ', @lines;

Тестовое слово : Текст брать из файла : Не получается : Файл с текстом

use open ':encoding(cp1251)';
open my $FILE, '<:encoding(cp1251)', 'file.txt';