Re: modifying the search pattern of a file.

[le]

This is pretty untested. It should switch between file1.txt and file2.txt.

open(FILE, $file) or die $!;
@lines = <FILE>;
close FILE;

for ($i = 0; $i <= $#lines; $i++) {
  if ($lines[$i] =~ /<% INCLUDE file(\d+)\.txt %>/) {
    $num = $1;
    # UPDATE:
    # ok, the next line (original) is wrong, see replies
    # $num = $num == 1 ? 1 : 2;
    # We have to write it this way:
    $num = $num == 1 ? 2 : 1;
    $lines[$i] =~ s/<% INCLUDE file(\d+)\.txt %>/<% INCLUDE file$num\.
+txt %>/;
  } else {
    next;
}

open(FILE, ">$file") or die $!;
print FILE @lines;
close FILE;

[dempa]

I don't want to be picky, but shouldn't:

$num = $num == 1 ? 1 : 2;

be:

$num = $num == 1 ? 2 : 1;

?

[le]

Of course, sorry... I was in a hurry.

[turnstep]

Or perhaps:

$num--; $num||= 2;
or
$num=$num%2 ? 2 : 1;

Shamefully, --$num||=2; is not allowed.