#!/usr/bin/perl
use warnings;
use strict;

use open IO => ':utf8', ':std';

my ($words, $sentences);
while (<>) {
    $words++     for m/\p{L}+/g;
    $sentences++ for m/\./g;
}
print "$words $sentences\n";

##</code><code>##

59 5