#!/usr/bin/perl -Tw

use strict;

while(<>) {
  if($_ =~ /(.*) (DECLINED:.*|OK)$/) {
    print $1 . "\n";
  } else {
    print $_;
  }
}