Since your incoming path seems to have Windows type backslashes as delimiters, I am using that below.

However, you should always use forward slashe, even under Windows, and get rid of them as soon as possible with something like: $path =~ s.\\.\/.g;

use warnings;
use strict;
use File::Basename;
my $path_to_file = 'bla\bla\full\path\to\file.ext';
$path_to_file =~ s.\\.\/.g;
my ($file,$path) = fileparse($path_to_file);
print "$file is in $path\n";
[download]

For copying files using File::Copy, you do:

use File::Copy;
copy $file,$newpath or die "Cannot copy $file to $newpath:$!\n";
[download]

--
Regards,
Helgi Briem
helgi DOT briem AT decode DOT is