$line=/-\s/;

##</code><code>##

$line = ($_ =~ /-\s/);

##</code><code>##

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