perlでshift-jisの文字列をutf-8に変換してからのURLエンコード

perl 
use Encode;

....


	# Shift_JISバイト文字列を内部文字列に変換 からの 内部文字列をUTF-8バイト文字列に変換
	$fromAddress = decode('Shift_JIS', $fromAddress);
	$from_encode = encode('UTF-8', $fromAddress);
	$from_encode =~ s/([^ 0-9a-zA-Z])/"%".uc(unpack("H2",$1))/eg;
	$from_encode =~ s/ /+/g;

ネタ元