Someone

alias dot {
  if ($regex($1-,/\W/)) || ($regex($1-,(?:www(\.)?|http:\/\/(.)?|(\.)?com|(\.)?net|(\.)org))) { 
    return $1- 
  }
  else {
    return $regsubex($1-,/(\w)$/,$+(\1,.))
  }
}

alias capital {
  if ($regex($1-,/^(?:\W)/)) || ($regex($1-,/^(?:www(\.)?|http:\/\/(.)?|(\.)?com|(\.)?net|(\.)org)/)) { 
    return $1- 
  }
  else {
    return $regsubex($1-,/^(\w)/,$upper(\1))
  }
}