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