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

if (@ARGV < 3) {
    die "Benutzung: $0 <alteip> <neueip> <datei1> [<datei2> ...]\n";
}
my $ip = shift;
my $newip = shift;

while ( <> ) {
    # suche/ersetze fuer jede Zeile
    s{^BBGEN="\Q$ip\E"}{BBGEN="$newip"};
    print;
}