История изменений

Чтобы понять, как работает этот код, нужно знать об автоматической переменной $_. Этот код можно развернуть в

open (InFile,"wg1.conf");
while ($str=<InFile>)
{
    print "$str";
    $_ =~ s{10.8.100.5/32}{10.8.100.5/32, 192.168.0.0/24}g;
} continue {
    print $_ or die "-p destination: $!\n";
}
close (InFile);

Использование $str для чтения из файла приводит к тому, что автоматическая переменная в цикле больше не заполняется, и остальной код ничего не делает.

Еще здесь есть стилистические недочеты, по которым можно сразу заметить, что код писал новичок: 1) InFile - лучше не использовать bareword-хэндлы (за исключением встроенных - STDIN и т.д.), а если все-таки очень хочется, то называть их КАПСОМ; 2) вместо $str должно быть my $str - тут либо код без strict (что есть зло), либо переменная $str используется в большей области видимости (что тоже зло); 3) в open нужно всегда указывать режим (здесь ‘<’), как минимум для читаемости

Чтобы понять, как работает этот код, нужно знать об автоматической переменной $_. Этот код можно развернуть в

open (InFile,"wg1.conf");
while ($str=<InFile>)
{
    print "$str";
    $_ =~ s{10.8.100.5/32}{10.8.100.5/32, 192.168.0.0/24}g;
} continue {
    print $_ or die "-p destination: $!\n";
}
close (InFile);

Использование $str для чтения из файла приводит к тому, что автоматическая переменная в цикле больше не заполняется, и остальной код ничего не делает.