perl -pe 's/./sprintf"&#%03d;",ord$&/ge'