ソース中の文字列と、DBから取得した文字列を同時に表示すると文字化け

こんにちは、

MySQLは実験してませんが、外部からきたUTF-8な文字列のつもりで、
UTF-8.txtに

日本語

と一行書いて、UTF-8N で保存。

以下のスクリプトを実行すると、
#! /usr/bin/perl
use 5.8.0;
use strict;
use warnings;
use utf8;
use Encode;

open my $fh , '<' , "utf8.txt" or die;

my $line = <$fh>;
my $data = '日本語';

$line = decode('UTF-8' , $line);

print encode 'shiftjis' , << "EOD";
読み込んだデータは:$line
スクリプト内で定義したデータは:$data
EOD
__END__


読み込んだデータは:日本語
スクリプト内で定義したデータは:日本語

と表示されます。（ActivePerlなので print 時は shiftjisです。)
>$line = decode('UTF-8' , $line);
この行が無かったら文字化けします。

もしかしたら、MySQLから取得したデータを decode したら良いかもです。

はずしてたらごめんなさい。

多分utf8フラグの問題だと思います。

#2,3の方の回答にあるようにすれば大丈夫だと思いますが、

入出力がすべてutf8なら、今回はuse Encodeは必要ないです。
utf8フラグをつければいいだけなので
DBからとってきたデータ($stringとします)
に対して
utf8::upgrade($string);
をしてみてください。

一応念のための確認ですが

> print "テスト：";
> print "$a[0]";
> と書くと、文字化けせずに表示されます。

ここで
print utf8::is_utf8($a[0]);
としたときの出力はどうなっていますか?

こんにちは、＃２です。

思いっきり間違ってました。

>UTF-8.txtに
>日本語
>と一行書いて、UTF-8N で保存。

じゃなくて、utf8.txt です。ファイル名を間違ってました。

あと、スクリプトももちろん UTF-8N で保存です。

すみません。

Perl スクリプトのほうで、use utf8 とかは宣言していますか?