my ($dir) = m{/([^/]+)/[^/]*$};