Select Code to Download

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

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.
...
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;

SELECT  poid_id0 FROM ACTIVE_SESSION_T WHERE account_obj_id0 = 7636217
+1;
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_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;