solaris5.8 $ test.perl | od -t ax1
0000000   $   V   A   R   1  sp   =  sp   q   r   /   (   ?   x   -   i
          24  56  41  52  31  20  3d  20  71  72  2f  28  3f  78  2d  69
0000020   s   m   :   @   @   (   [   A   -   Z   $   #   @   _   #   ]
          73  6d  3a  40  40  28  5b  41  2d  5a  24  23  40  5f  23  5d
0000040   *   )  sp   (   ?   !  sp   [   A   -   Z   a   -   z   0   -
          2a  29  20  28  3f  21  20  5b  41  2d  5a  61  2d  7a  30  2d
0000060   9   $   #   @   _   ]  sp   )  nul nul  lf   )   /   ;  lf
          39  24  23  40  5f  5d  20  29  00  00  0a  29  2f  3b  0a