Instead of only using a regex.

my($this, $that) = split ':', $line, 2;
my $other = (split '\(', $that)[1];
$other =~ s/\)$//;
[download]

Just a thought.