初歩的だと思うのですが質問させてください。

$hogeに1〜3の数字が入るのですが（「123」や「13」「2」だけのときもあります）
1がふくまれていたら「あか」、2が含まれていたら「あお」、3なら「きいろ」というような置換をしたいのですが、
s///;　1行でまとめて記述できますか？

できなければ
$hoge =~ s/1/あか/;
$hoge =~ s/2/あお/;
$hoge =~ s/3/きいろ/;
と書くしかないのでしょうか〜？　調べてみたのですがイマイチわかりません・・・。