Perlについての質問箱 2箱目

Perl言語で、(x+1)の2乗やら、(x+y)*(x+2y)　などといった
計算を行うにはプログラムはどうすればよいでしょう？
もちろん2乗は「(x+1)**2」なんて事は承知してますが、
このまま計算するとモロにエラーｗ（当たり前）
ちなみに欲しい出力結果として、
前者は「x^2+2x+1」後者は「x^2+3xy+2y^2」。

分かる方お願いしますm(_ _)m