while(<>) {
    $num += (s/##//g);
}
print $num, "\n";