my $string      = "Methyl;lysine(D);methionin";

if ((index ($string, '4') == -1) && $string =~ /(met)/i){
        print "'4' nicht gefunden. $1 gefunden!\n";
}
else{
        print "'4' gefunden!\n";
}