if ($Path =~ m{^(.*)\/([^\/]*)})
    {
        $Dir = $1;
	$File = $2;
	$Ext=$3;
    }
    else
    {
        $File = $Path;
    }

    if ($File =~ m{^(.*)\.([^\.]*)})
    {
        $File = $1;
	$Dot = ".";
	$Ext = $2;
    }
    else
    {
        $Dot = "";
	$Ext = "";
    }
	if (-d "/$Dir/$File")
	{
	    $Dir .= "/$File";
	    $File = "";
	}