substr $filename, rindex($filename, ".") + 1 || length $filename