$string =~ s/^.*(?:[.]([^.]*))?$/$2/;