#!/usr/bin/perl -i.bak

use strict;
use warnings;

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

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


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


while ( <> ) {

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