$file_path =~ m{(.*)/([^/]+?$)};
        my ($dir, $file) = ($1, $2);