Perl: number <-> char

$num = ord($ch);

$ch = chr($num);

interesting!