$string =~ s/.*\.(.*)$/$1/;