Something like this?

my ($spath, $ext) = $ENV{'PATH_TRANSLATED'} =~ /^(.*\/).*\.(.*)$/;
[download]