#! /usr/bin/perl -i.bak
use strict;
use warnings;

# diese Skript legt von angegebenen Datei(en) jeweils eine Kopie an
# (mit Erweiterung .bak; siehe perldoc perlrun; -i.bak)

# definiere die Strings, nach denen wir suchen
# und womit wir ersetzen wollen
# um die IP vom Schema der entsprechenden Zeile zu trennen, nutzen
# wir hier sprintf(); (siehe: perldoc -f sprintf; ) ;ansonsten:
# my $gesucht = 'IP="144.144.144.144"';
# my $ersetze = 'IP="222.222.222.222"';
my $gesucht = sprintf( 'IP="%s"', '144.144.144.144' );	# aendere IP, nach der gesucht wird 
my $ersetze = sprintf( 'IP="%s"', '222.222.222.222' );	# aendere IP, mit der ersetzt wird

# Lese zeilenweise aus Datei(en)
while ( <> ) {

	# suche/ersetze fuer jede Zeile
	s{^\Q$gesucht\E}{$ersetze};

	# gebe die Zeile wieder aus
	print;
}


__END__