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

print"Bitte alte IP eingeben\n";
chomp( my $ip = <STDIN> );

print"Bitte neue IP eingeben\n";
chomp( my $newip = <STDIN> );

my $gesucht = sprintf( 'BBGEN="%s"', $ip );
my $ersetze = sprintf( 'BBGEN="%s"', $newip );

while ( <> ) {
    # suche/ersetze fuer jede Zeile
    s{^\Q$gesucht\E}{$ersetze};
    
    print;
}