my ($new_file_name) = $full_path_name =~ m!(?:.*\\|.*\/)?(.+)$!;