$ more tmp.pl
#!/usr/local/bin/perl -w

use utf8;

use Devel::Peek;

while (<STDIN>)
{
          print ">$_<\n";
          Dump($_);
          s/\d //;
          print "hi\n";
}

$ printf "x\0227  " | tmp.pl
>x  <
SV = PV(0x80f4b84) at 0x80f4858
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x80ff148 "x\227  "\0
  CUR = 4
  LEN = 80