All the Perl that's Practical to Extract and Report
This is one of those days:
SELECT owner, name, type FROM all_source WHERE owner LIKE '....' AND UPPER(text) LIKE '....';