You could try using File::Find instead of the backticked ls. I guess you'd have to run each line of @accounts through a filtering regex too. Read perlsec for more info.

rdfield