my %chars;
@chars{0 .. 127}=undef;
while(<>)
{
   for (split //)
   {
      delete $chars{ord $_} ;
   }
}

print "Chars never seen:\n";
$,="\n";
print keys %chars;