#!/usr/bin/perl
# search_and_replace.pl
use strict;
use warnings;

my $blank;
my $reuse;
while (<>) {
    s/CREATE/CREATE or REPLACE/ig;

    if (/^\s*$/) {
        $blank .= $_ unless $reuse;
    }
    elsif (/REUSE/i) {
        print and $blank = undef;
        $reuse = 1;
    }
    else {
        if($blank){
            print $blank;
            $blank = undef;
        }
        $reuse = 0;
        print;
    }
}

CREATE or REPLACE PACKAGE "XXX_INTERFACE_DEFECT_RPT_TEST" is

TYPE refCursor IS REF CURSOR;

Function queryRecords (
  p_status varchar2,
...
...
...
) return refCursor;

Function getQueryRecords(
...
...
...

ALTER PACKAGE "XXX"."XXX_INTERFACE_DEFECT_RPT_TEST"
  COMPILE SPECIFICATION
    PLSQL_OPTIMIZE_LEVEL=  2
    PLSQL_CODE_TYPE=  INTERPRETED
    PLSQL_DEBUG=  FALSE    PLSCOPE_SETTINGS=  'IDENTIFIERS:NONE'
 REUSE SETTINGS TIMESTAMP '2015-06-24 23:45:01'
/

ALTER PACKAGE "XXX"."XXX_INTERFACE_PRODUCTION_WO"
  COMPILE SPECIFICATION
    PLSQL_OPTIMIZE_LEVEL=  2
    PLSQL_CODE_TYPE=  INTERPRETED
    PLSQL_DEBUG=  FALSE    PLSCOPE_SETTINGS=  'IDENTIFIERS:NONE'
 REUSE SETTINGS TIMESTAMP '2015-06-24 23:45:17'
/


ALTER PACKAGE "XXX"."XXX_INTERFACE_PRODUCTION_WO"
  COMPILE SPECIFICATION
    PLSQL_OPTIMIZE_LEVEL=  2
    PLSQL_CODE_TYPE=  INTERPRETED
    PLSQL_DEBUG=  FALSE    PLSCOPE_SETTINGS=  'IDENTIFIERS:NONE'
 REUSE SETTINGS TIMESTAMP '2015-06-24 23:45:17'
/

-- new object type path: SCHEMA_EXPORT/PACKAGE/PACKAGE_BODY
CREATE or REPLACE PACKAGE BODY "XXX_MORE_HERE" wrapped
...
...
...