$file =~ s|/([^/]+)$|| or last;