substr($n,rindex $n,'.') = '';