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

use open IO => ':utf8';

while(<DATA>) {
  chomp;
  (my $nonenglish = $_) =~ s/[A-Za-z]//g;
  my @chars = split(//,$nonenglish);
  my $chars = scalar(@chars);
  print scalar(@chars), " $nonenglish\n";
}

__DATA__
æ
æð
æða
æðaber
æðahnútur
æðakölkun
æðardúnn
æðarfugl
æðarkolla
æðarkóngur
æðarvarp
æði
æðimargur
æðisgenginn
æðiskast
æðislegur
æðrast
æðri
æðrulaus
æðruleysi
æðruorð
æðrutónn
æðstur
æður
æfa
__END__


##</code><code>##

$chars = $chars / 2;
print "$chars $nonenglish\n";