Select Code to Download

while ($line = <>) {
    $symbol{ $_ }++ for ( split //, $line );
}

while ($line = <>) {
    for ( split //, $line ) {
...
        $total++;
    }
}

$total = eval (join '+', values %symbol); # :)