This isn't a Linux support site. You've already been told that this site is for helping people learn perl and address problems with their perl code. You seem be treating this as a code writing service which it is not. We are not here to do your job for you.

File::Find is one way to search thru a directory structure; use it to find the file with the highest priority. Then just trace down $File::Find::dir, printing the directory contents as you go. Fancy formatting is left as an exercise for the student.

Let me know how to do it with perl

Here you go.

i had added my code which i had tried.

Your code captures and assigns to $max_id only the last one of the first group of digits found. I expect that's probably not what you wanted.

perl -Mstrict -W -E 'say $1 if "hello 0 and 123 goodbye" =~ /(\d)+/;'
0
[download]

$ perl -Mstrict -W -E 'say $1 if "hello and 123 goodbye" =~ /(\d)+/;'
3
[download]

$ perl -Mstrict -W -E 'say $1 if "hello and 123 goodbye" =~ /(\d+)/;'
123
[download]

Hope this helps!

(Update: show suggested fix and additional failing example)

Could you please elaborate by some loops.

What does that mean by some English?

• Do you notice you are getting down votes?
• Do you wonder why?

code which i tried is added with the question

Do you know this doesn't answer my questions?

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!}