my %avain = split /\//, $path;

while (my ($key, $value) = each (%avain)) {
    next unless $value;
    print "<p>$key = $value</p>\n";
}