Select Code to Download

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

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