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

my $buffer = do { local $/; <>; };

my $strings = decode_utf8($buffer);

my $lines = $strings =~ s/\n/\n/g || 1;
my $chars = length($strings);
my $bytes = length($buffer);

print "lines: $lines\n";
print "chars: $chars\n";
print "bytes: $bytes\n";