/print STDERR "    from $sprefix to $rprefix/a

    $rprefix .= '/' if $sprefix =~ m|/$|;
.
w