Help for this page
$ncat += 1; $init_name = "init_$ncat"; ... $l =~ s/#init_name/$init_name/gi; print FILE $l; }