#! /usr/bin/perl
# zaehl.pl
# Aufruf: perl zaehl.pl datei.txt
while(<>) {
    $num += (s/#//g);
}
print $num, "\n";