@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";
        }
}
[download]