$ printf "x\0227 " | perl -e 'use utf8; while (<STDIN>) { s/\d //; }'
$ printf "x\0227 " | perl -MDevel::Peek -e 'while (<STDIN>) { Dump($_) }'
SV = PV(0x743c) at 0x7108
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x8180 "x\0227 "\0
  CUR = 4
  LEN = 80
$ printf "x\0227 " | perl fo
>x7 <
SV = PV(0x743c) at 0x7108
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x8500 "x\0227 "\0
  CUR = 4
  LEN = 80
hi
$