Есть фаил с темплейтом, в котором есть выражения которые и нужно заменять,
например <RANDOM NUMBER> - заменятьеся на случайное число.

Это случайно число генерируеться функцией, random_number() ,
но у меня получаеться, если я в темплейте написал два раза подряд <RANDOM NUMBER>
то выводиться одно и то же число: 22 , 55 , 99.

Тоесть нужно что-бы при замене каждый раз функция генерирования числа вызывалась заново. Есть какие-нибудь идеи как это реализовать ?

Заранее всем благодарен.

Код

$str="foo bar\nfoo bar<rand>bar foo\nfoo<rand>bar\nbla-bla-bla...\nbar foo foo bar\n"; while ($str =~ /<rand>/) {      my $rnd = int(rand(100));     $str =~ s/<rand>/ Random number: $rnd /;  } print $str;