マニュアルで公式には書かれていませんが、 PHP5.2.1（？）から以下のような非Unicode文字列であることを明示するリテラル表記とキャスト構文が既に使えるようです。

Perlではスクリプト中の__DATA__というキーワードの後ろにある文字列をDATAというファイルハンドルから読み出すことができます。 作業用PCにActivePerlを入れて、Copal（http://www.vector.co.jp/soft/win95/util/se106827.html）といったフリーソフトを併用…