Shift-jis形式のファイルでperlのエンコードプログラムを作っています。

#!/usr/bin/perl
$fuji = "フジテレビ";
$asahi = "テレビ朝日";

$fuji =~ s/([^\w ])/'%' . unpack('H2', $fuji)/eg;
$asahi =~ s/([^\w ])/'%' . unpack('H2', $asahi)/eg;

print $fuji;
print $asahi;

エンコードされるのですが、エンコードされた結果をデコードするとフジテレビは「フジテャビ」、テレビ朝日は「テャビャャ」となってしまいます。正しくデコードするためにはどこを修正すればよろしいでしょうか？解説URLの紹介ではなく、上記プログラムについて添削していただける方のみご回答ください。