my ($excerpt) = $line =~ /-([^)]+\))/;