#!/usr/bin/perl

use strict;
use warnings;

my $file = 'whiletest.txt';
my $zeichen;

{
    local $/;
    open(my $fh,'<',$file) or die $!;
    $zeichen = length $fh;
    close $fh;
}

print $zeichen;

dies
ist
ein
test

C:\>while.pl
14

perl -wle'
$_ = "foo bar";
$zeichen = tr/A-Za-z/A-Za-z/;
print $zeichen'
6