my $new_file_name = pop @{[split /\/|\\/, $full_path_name]};