lib/scripts/recode.pl

some rephrasing to ensure that this becomes cheap "foreach" and not expensive "map" (cf. 0fc032898b05);

#
# Author: Makarius
#
# recode.pl - recode utf8 for ML
#

for (@ARGV) {
  utf8::upgrade($_);
  s/([\x80-\xff])/\\${\(ord($1))}/g;
  print $_, " ";
}