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