@strings = (
"ENV(ABCD1234) STATUS(Running)",
"ENV(IJK1234) STATUS(Not Running)",
"PRINT NAME FIRST(ABCD) SECOND(EFGH) ADDRESS('') PHONE(12345678)",
"PRINT NAME FIRST() SECOND(WXYD) ADDRESS('') PHONE(87654321)"
);


foreach $line (@strings){
		if ($line=~/ENV\((.*?)\) STATUS\(Not Running\)/){
			print "$1\n";
		}
		if ($line=~/PRINT NAME FIRST\((.*?)\) SECOND\((.*?)\) ADDRESS\((.*?)\) PHONE\((.*?)\)/){
			print "$1 $4\n";
		}
}