#!/usr/bin/perl -n

print "$.:\t$_" if ( s/([^\x00-\x7f])/sprintf("\\x{%02x}",ord($1))/eg );

##</code><code>##

NNN:    .... \x{e0} ...