#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;

my $version=4;
my $destination_dir='.';
my $source_dir='../ordner';

# Dateien kopieren
opendir(my $dirh, $source_dir) or die "Error open $source_dir ($!)\n";
while(my $file=readdir($dirh))
{
  # wenn die Endung stimmt
  if($file=~/\.cvs\.(\d+)$/ && $1 == $version-1)
  {
    my $source="$source_dir/$file";
    my $dest="$destination_dir/$file";
    # Punkt und Zahl am Ende entfernen
    $dest=~s/\.\d+$//;
    # Datei kopieren.
    print "$source -> $dest\n";
    copy($sorce,$dest) or die "Error copy $source -> $dest ($!)\n";
  }
}
closedir($dirh);