هذا الكود مكتوب بلغة ايرلنج user_send_packet(_From, _To, _Packet) -> ok. bad_words() -> {ok, R} = re:compile(" |.org|.sy|.im e|k.org", [caseless]), [{R, " "}]. filter_out_word({BadWord, GoodWord}, String) -> re:replace(String, BadWord, GoodWord, [global, {return, list}]). filter_string(String) -> BadWords = bad_words(), lists:foldl(fun filter_out_word/2, String, BadWords). filter_message([{xmlelement, Name, Attrs, Els} | Tail]) -> NewEls = case Name of "subject" -> [{xmlcdata, filter_string(xml:get_cdata(Els))}]; "body" -> [{xmlcdata, filter_string(xml:get_cdata(Els))}]; "status" -> [{xmlcdata, filter_string(xml:get_cdata(Els))}]; _ -> Els end, اريد تعديل هذا السطر bad_words() -> {ok, R} = re:compile(" |.org|.sy|.im