分解すると

$_ = <<'END';
こちょ♪こちょ♪ 【\n】
END
chomp($_);

になる。

$_ = <<'END' とすれば、シフトJISの第2バイトに \x5c が使われ
ている場合でも変数に無事代入することができるが、副作用として
余分な改行コードが入ってしまうので chomp で取り除く。

でも今は昔。Sjis.pm がそれをやってくれる。

ありがたい時代だ。