s="foobarbaz"
expr "$s" : "\(.*\)."
expr "$s" : ".*\(.\)"