$PatternToMatch="^SELECT";
$tmpfile="pattern.txt";
open(MYFILE, "$tmpfile")|| die "Cannot create $tmpfile\n";
while (<MYFILE>) {
if (/$PatternToMatch/)
{
 print   "$_"; }
}

##</code><code>##

SQL*Plus: Release 9.2.0.6.0 - Production on Wed Jan 21 11:09:19 2009

Copyright (c) 1982, 2002, Oracle Corporation.  All rights reserved.


Connected to:
Oracle9i Enterprise Edition Release 9.2.0.7.0 - 64bit Production
With the Partitioning option
JServer Release 9.2.0.7.0 - Production

SQL>   2
'SELECTPOID_ID0FROM'||TABLE_NAME||'WHEREACCOUNT_OBJ_ID0=76362171;'
--------------------------------------------------------------------------------
SELECT  poid_id0 FROM ACTIVE_SESSION_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM ADMIN_ACTION_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AUDIT_ACCOUNT_PRODUCTS_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_BAL_GRP_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEAL_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEPENDENCY_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEVICE_SERVICES_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEVICE_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DISCOUNT_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_GROUP_SHARING_MEMBERS_T WHERE account_obj_id0 = 7636217
1;

'SELECTPOID_ID0FROM'||TABLE_NAME||'WHEREACCOUNT_OBJ_ID0=76362171;'
--------------------------------------------------------------------------------

SELECT  poid_id0 FROM AU_GROUP_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_ORDERED_BALGROUP_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_PAYINFO_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_PLAN_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_PRODUCT_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_RATE_PLAN_SELECTOR_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_RATE_PLAN_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_RATE_T WHERE account_obj_id0 = 76362171;

##</code><code>##

SELECT  poid_id0 FROM ACTIVE_SESSION_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM ADMIN_ACTION_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AUDIT_ACCOUNT_PRODUCTS_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_BAL_GRP_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEAL_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEPENDENCY_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEVICE_SERVICES_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DEVICE_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_DISCOUNT_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_GROUP_SHARING_MEMBERS_T WHERE account_obj_id0 = 7636217
SELECT  poid_id0 FROM AU_GROUP_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_ORDERED_BALGROUP_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_PAYINFO_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_PLAN_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_PRODUCT_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_RATE_PLAN_SELECTOR_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_RATE_PLAN_T WHERE account_obj_id0 = 76362171;
SELECT  poid_id0 FROM AU_RATE_T WHERE account_obj_id0 = 76362171;