map {delete $DB::sub{$_}} grep {/spreadsheet/i} keys %DB::sub