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";

##</code><code>##

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