Находим символ, например, латинского алфавита [A-Za-z], его номер равен 1. Потом этот символ меняем на этот же удвоенный символ (фрагмент $1$1). Пример работы скрипта изображен на рисунке 1.

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

#! perl -w
$str= <STDIN>; 
$str =~ s/([A-Za-z])/$1$1/g; 
print "new str=$str\n";

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