($name,$ext) = reverse map {scalar reverse} (split /\./, (reverse $filename), 2);