shift JIS のスクリプトを扱う必要があるのですがたとえば

use encoding 'Shift_JIS';
$str1 = "鼻毛";
$str2 = "三日";
print "俺の$str1は$str2以内に伸びてくる。\n".
"したがって二日以内に切ることが望ましい\n";

のようにすると一行目が「俺の。」と表示されてしまいます。これを

print "俺の$str1\は$str2\以内に伸びてくる。\n".

のようにして、変数名の後に \ を入れると正しく表示されるのですが、
こういう処理方法は正しいのでしょうか?
それとも最初のやり方でうまくいかないのはPerl側の不具合とみるべきでしょうか