foreach $exch(@exch) { 
    for($i=0; $i<=$#completefile; $i++) { 
        $su_adapter = undef;
        $su_date = undef;
        while($completefile[$i]=~ m/^.+\\(.+)_.+\..+?:(.+?)\s-\s(.+?)\s.+?\/$exch\s\|.+::(.*Up)\(\)/g) { 
            $su_adapter=$1; 
            $su_date=$2; 
        }
        print $su_adapter, $su_date;
    }
}