Sorry, I'm a forum retard.

This works:

 if (/CONNAME\(([\d.]+)\)[\s.]*CURRENT[\s.]*/is) {
 print $&;} 
 

This does not:

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