Select Code to Download

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..."

#!/usr/bin/perl -wl
use strict;
...
# - 1
# - ~
# - b: 3