What have you done so far? Where do you have problems? Do you know how to write a loop? Do you have a perl book at hand or some other documentation to find suitable functions and methods for your problem? Can you write a script that shows what you already know how to do?

Here a few more pointers:

If a string starts with some other string, you might use substr() and string equality operator 'eq' or a regular expression, i.e. if ( $x=~/o-le-v7/) { ... }

To read the contents of a directory, you might use glob() or File::Find (if you want to search subdirectories as well), or readdir()

With the operator '-d' you can find out if some file is a directory, i.e.  if (-d $file) { ... }