function noktalama($metin)
{
// PHp tarafından yazılmıştır...
return stripslashes(preg_replace(array(
'~([^\s.,;:!?]{2,})\s+([.,;:!?])~u',
'~([^\s.,;:!?]{2,})([.,;:!?]+)([^\s.0-9"\'„”’›»])~u',
'~(\s)+[.,;:!?]+\s+~u',
'~\.{4,}~u',
'~\.{3,}\s*$~u',
'~^\s+~um',
'~\s+$~um',
'~\r+~u',
'~\n{2,}~u',
'~\s{2,}~u',
'~((ht|f)tps?: //|[-a-z0-9]{2,}\. )([-a-z0-9/]{2,}\. )+[-a-z0-9]{2,4}~uie',
'~(^|\s)([-a-z0-9]{2,}\. )+(com|de|net|co\.[a-z]{2}|org|info|it|biz|nl|cc|tv|com\.[a-z]{2}|ch|br|dk|us|ca|ws|be|cz|no|at|fr|pl|ru|net\.[a-z]{2})(/[-a-z0-9.]+)*([\s.0-9"\'„”’›»]|$)~uie',
'~(^|[^0-9.?!]{2,}[.?!]\s)(["\'“‘‹«]?\s?)([^\s])~ue'
), array(
'$1$2',
'$1$2 $3',
'$1',
'...',
'.',
'',
'',
"\n",
"\n",
' ',
'strtr("$0", array(": "=>":", ". "=>"."))',
'strtr("$0", array(": "=>":", ". "=>"."))',
"'$1$2' . mb_strtoupper('$3')"
), $metin));
}