create   view V_PAID_USERS as 
  select * from users u, subcription s 
  where u.user_id=s.user_id and s.balance =< 0;

  CREATE  OR REPLACE VIEW V_OVERDUE 
  AS select * 
  from 
  users u, 
  subscription s 
  where u.user_id=s.user_id and s.duedate > 60;
  
  create TABLE UNPAID_USERS as
  select * from users u, subcription s where u.user_id=s.user_id and s.balance > 0;
  
  create view receipts as select * from unpaid_users;
  

Here's the code:

	      if($_ =~ /create\s/i .. /V_\w+/i) {
		      if($_ =~ /(V_\w+)/i) {
			      print OUTFILE "$path Line: $line_cnt: $1\n";
		      }
        }
        
	      if($_ =~ /create\s/i .. /T_\w+/i) {
		      if($_ =~ /(T_\w+)/i) {
			      print OUTFILE "$path Line: $line_cnt: $1\n";
		      }
        }