1. Копирование файлов по маске Для копирования файлов по маске в Perl можно использовать модуль File::Copy. Пример кода: use strict; use warnings; use File::Copy; my $dir = '/path/to/directory'; my @files = glob("$dir/*.txt"); # выбор файлов по маске foreach my $file (@files) {     my $new_file = $file . '_copy'; # новое имя файла     copy($file, $new_file) or die "Ошибка копирования файла $file: $!"; # копирование файла } В данном примере мы выбираем все файлы с расширением .txt из директории /path/to/directory и копируем каждый из них, добавляя к имени файла суффикс '_copy'. Если происходит ошибка копирования, скрипт выводит сообщение об ошибке...