Select Code to Download

#!/usr/bin/perl

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

$ perl nonenglish.pl
æ
...
4 𪛖
^D
$