@sheets = grep{substr($_,-3) eq 'xls'}readdir(DIR); [download]
In reply to grep using substr by Bloodelf