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