$a = "Win98"　のとき、 "Win"を"Windows"に置換したものを$bにし、なおかつ$aは"Win98"のままにしたいです。

$a = "Win98";
$b = $a;
$b =~ s/Win/Windows/;

とすればうまくいったが、もっとシンプルな書き方はありますか？