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

#!/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';