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

my $chars = 0;
my $lines = 0; 
while (<>) {
  $chars += length;
  $lines ++;
}

print "$chars $lines\n";