$ perl|od -tx1
my $c=65.66.20.21.67.23.25.10;
$c =~ s/\W+$//;
print "$c\n";
__OUTPUT__
0000000 41 42 14 15 43 0a
0000006