while (<DATA>) {
  if (m/\((KB\d+)\)\s*$/) {
    print "$1\n";
  }
}

##</code><code>##

# Change default separator to \n"
$/ = "\n\"";
while (<DATA>) {
  # Put " in the beginning of line.
  $_ = qq/"$_/ unless m/^"/;
  # Removes \n
  s/\n/ /g;
}