my $var = "Hello World \x{263a}\cM\x0A This bit is trimmed";
print "\$var is $qesc_to{$var}{30}\n";
# output: $var is "Hello World \x{263A}\r\n..."