my $size = 0;
for (@source) {
    $size += () = m{\b\w+\b}g;
}