Select Code to Download

#!/usr/bin/perl -w
use strict;
...
101(ultracentrifuge)
104-105(crystal growth rooms)
660(centrifuge, refrig.)

my @tokens = ($line =~ m/([^,(]+(?:\([^)]*\))?)/g);