$string =~ s/^.*[.]//;