($ext) = $name =~ /(\.[^.]*)+/;