($thisj) = $dir =~ m#/([^/]+)$#;