in reply to Optimising a search of several thousand files

The solution for the next 12 months:
s/$level/250000/ if ($user eq "McDarren");

[download]
;)

In Section Seekers of Perl Wisdom