use charnames qw(:full);
$soh_string = "\N{SOH}";