perl regex, замените каждое отдельное слово другим

Question

У меня есть формула типа

(var1  - var2 ) + var3

Я хочу заменить var1 - var 3 на

(put(var1,format.) - put(var2, format.) + put(var3, format.)

Какой самый простой способ сделать это с помощью Perl Reg?

спасибо.

Answer 1

$string = '(var1 - var2 ) + var3';
$string  =~ s/\b(var\d+)\b/put($1, format.)/g;
print $string;

Answer 2

my $string = '(var1 - var2 ) + var3';
$string  =~ s/(var\d+)/put($1, format.)/g;
print $string;