foreach my $file (@files) {
    next if $file =~ m#/CVS/#;
    next if $file =~ m#~#;
    $file =~ s#^\./##;
    push(@noCvsDirs, $file);
}