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

##</code><code>##

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

##</code><code>##

my ($extension) = $string =~ /[.]([^.]*)$/;