use utf8;
use Devel::Peek;

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