gistfile1.perl

use strict;
use warnings;
use List::Util qw(sum);

my %result;

while (<>) {
  chomp;
  my $line = $_;
  my (undef, $topic, @scores) = split /\s*\|\s*/, $line;

  next unless $topic;
  next if $topic =~ /Questions/;

  unshift @scores, 0;
  $_ =~ s/-/0/ for @scores;

  my $count = sum @scores;
  my $total = 0;
  for (1 .. 10) {
    $total += $scores[ $_ ] * $_;
  }

  $total /= $count;

  print "$topic: $total\n";
}