in reply to Check if dir exist using regexp

Do you need to recursively look for those style of directory names? If not, then using a a simple grep combined with glob should work fine. Otherwise, File::Find is your best bet to do recursive searching. 
$s = 241;
$v = 73;

@found = grep { -d $_ && m/$s\.$v_\w+/ } glob "/some/dir/*";
# DO STUFF WITH @found matches

[download]

---
echo S 1 [ Y V U | perl -ane 'print reverse map { $_ = chr(ord($_)-1) } @F;'
Warning: Any code posted by tuxz0r is untested, unless otherwise stated, and is used at your own risk.

In Section Seekers of Perl Wisdom