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