open (READFILE, "<poem.txt") || die "Couldn't open file: $!";
$lines = 0;

while(<READFILE>) {
	$chars += length($_);
	$lines++ ;
	my @word = split " ", $_;
    $word_cnt += @word;
 	$mystring = $mystring += $_=~ tr/ ,\.\t\n//;
}

print ("Lines: $lines\n");
print ("Words: $word_cnt\n");
print ("Characters: $chars\n");

print("Total String: $mystring\n");