#!/usr/bin/perl

use open IO => ':utf8';

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

##</code><code>##

$ perl nonenglish.pl
æ
2 æ
&#42853;
3 &#42853;
&#173782;
4 &#173782;
^D
$