my $content = slurp 'file';

print size($content),"\n";

print total_size([split m{\p{IsSpace}}ms, $content]),"\n";