if($str =~ s#check this [^out]#check this one#){
}