for (@f_path){
my ($dir, $fname)= $_ =~ /^(.*?)[\\\/]([^\\\/]+)$/;
print "\n\nOriginal  : $_";
print "\nDirectory : $dir";
print "\nFielname  : $fname\n";
}