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