Use split and grep to compare.

Untested example:

sub compare_paths{
  my @path1 = split /\//, +shift;
  split /\//, +shift;
  grep $_ ne +shift, @path1;
}
[download]

Returns a list with elements from path1 that do not match.

Hope this helps,

Jeroen
"We are not alone"(FZ)

Update: This modification is better, now it returns a hash:

sub compare_paths{
  my @path1 = split /\//, +shift;
  split /\//, +shift;
  grep { defined $_} map {my $n = +shift; $_ ne $n ? ($_,$n) : undef} 
+@path1;
}
[download]

(and it is tested now. It returns a true in scalar context; the keys of the hash give you the number of mismatches in scalar context)