foreach my $elem (@repos)
{
  (my $repo_name = $elem) =~ s/$svnroot//i;
  print "$repo_name\n";
}