DB<62> use Data::Dumper qw/Dumper/

  DB<63> $Data::Dumper::Terse  = 1;

  DB<64> $x= Dumper q(It's\x\\)

  DB<65> print "<<<$x>>>"
<<<'It\'s\\x\\'
>>>
  DB<66> chomp $x

  DB<67> $x =~ s/^'(.*)'$/$1/

  DB<68> print "<<<$x>>>"
<<<It\'s\\x\\>>>
  DB<69>