use strict; use warnings; use Template; my $template = Template->new(); my @names = qw(file1 file2); my $tpl = do{ local $/ = undef; }; for my $name (@names) { $template->process($tpl, { name => $name }, "$name.ini"); } __DATA__ [main] left_hand_side=[% name %].html right_hand_side=[% name %].php file_regex_pattern=\.php$ dir_regex_pattern=(?!^svn$)