($filename) =   $filename =~ m{\A (/ ([\w./]+) )}smx
    and         $filename !~ m{\.{2}\/}smx
    or die 'Bad filename';