use utf8としてUTF-8でソースを書いた場合length関数の戻り値は文字数になるようですが、
バイト数を知りたい場合はどうすればよいのでしょうか？
例えば
print &bar('Japanese');
print &bar('日本語');

sub bar($)
{
　$s = shift;
　return $s . "=" x (80 - length($s));
}
等とすると 「日本語===========〜」 の方は83バイトになってしまいます。