#!/usr/bin/perl

use strict;
use warnings;
use File::Basename;

my $file = '\\nt\tec\Rechnungen\Dateiname';
my $dir = 'd:\archiv\test';

my $filename = basename($file);
my $new = $dir . '\\' . $filename;
print $new;