while (<>)
{
    s|"([^"]+)"|
        '{' .
         join(',',
             map { "(byte)'$_'" }
                 split(//, $1)
             ) .
         '}'
      |gex;
    print;
}