Help for this page
#!/usr/bin/perl use strict; ... # I think I need to sepearte SID with /SID/ and search for string ti +ll it reaches ')' }
DB1= ( ... ... (CONNECT_DATA = (SID = db2 )) )