use strict;
use warnings;

my @names = qw(file1 file2);

for my $name (@names) {
	open OUTPUT, "> $name.ini";
	print OUTPUT "[main]\n";
	print OUTPUT "left_hand_side=$name.html\n";
	print OUTPUT "right_hand_side=$name.php\n";
	print OUTPUT 'file_regex_pattern=\.php$' . "\n";
	print OUTPUT 'dir_regex_pattern=(?!^svn$)';
	close OUTPUT;
}