#!/usr/bin/perl

while (<>)
{
    $_ =~ /([0-9]+)? - .*/;
    $num = $1;

#    if ($num > 1)
    {
	$newnum = $newnum + $num;
    }
}
print "SHIT $newnum\n";