Ciao!
nelle regexpr, non c'č bisogno dei backslash all'interno delle [] per fare
l'escape dei quantificatori.
quindi io direi che il tuo codice diventa:
while(<>)
{
$cnt++ if /[.?!][^.]/g;
}
print $cnt;
cosė a occhio direi che č a posto.
fammi sapere,
Andrea