foreach my $exch (@exch) {
    my ($su_adapter, $su_date);
    foreach (reverse @completefile) {
        last if ($su_adapter, $su_date) = /^.+\\(.+)_.+\..+?:(.+?)\s-\s(.+?)\s.+?\/$exch\s\|.+::(.*Up)\(\)/;
    }
    if (defined $su_adapter) {
        print "Last match for $exch: $su_adapter, $su_date\n";
    } else {
        print "No match for $exch\n";
    }
}