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";
}