This ought to work:

$_ = "anStr";
{
  local $";
  $s = qq!{@{[map{"(byte)'$_',"}split//]}}!;
}
[download]

conv