http://qs321.pair.com?node_id=427674


in reply to File::find question

Just unlink them like this:

find (sub { unlink($File::Find::name) if /\.results$/} , @directories );