Алгоритм решения этой задачи может быть следующим. Ищем последовательность цифр (\d+), ее номер равен 1. Потом эту последовательность умножаем на 2 (фрагмент $1*2). Флаг e говорит о том, что выражение $1*2 должно быть вычислено. Пример работы скрипта изображен на рисунке 1.

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

#! perl -w
$str=<STDIN>; 
$str =~ s/(\d+)/$1*2/ge; 
print "new str=$str\n";

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