CODE EXAMPLE FOR SHELL

Linux UTF-8

perl -ne '/^(([x00-x7f]|[xc0-xdf][x80-xbf]|[xe0-xef][x80-xbf]{2}|[xf0-xf7][x80-xbf]{3})*)(.*)$/;print "$ARGV:$.:".($-[3]+1).":$_" if length($3)'