$ perl6 --target=parse t.p6 | head | grep \$char | od -c
0000000   m   y       $   c   h   a   r 303 251       =       "   a   s
0000020   d   f   "   ;  \n   i   f       $   c   h   a   r 303 251
0000040   {  \n                   -       E   X   P   R   :       m   y
0000060       $   c   h   a   r 303 251       =       "   a   s   d   f
0000100   "  \n
0000102