>perl -e"use Data::Dumper; $Data::Dumper::Useqq = 1; print Dumper qq{\x{400}};"
$VAR1 = "\x{400}";