Help for this page

Select Code to Download

Select or download this

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

Select or download this

# Change default separator to \n"
$/ = "\n\"";
...
  # Removes \n
  s/\n/ /g;
}