if (/CONNAME\((.*\..*\..*\..*)\)[\s.]*CURRENT[\s.]*CHL/is){
print "$&\n"; }