>>35
少し高度になるけど、
パイプを使えばできるよ。

でも、特に理由がないなら sprintf か、
push あたりでいいのでは。

push の例:

my @res;

push @res, "↑\n";
push @res, "攻撃力2000\n";

print "(^_^) " x 3 ,"\n";
print @res;

−出力結果−
(^_^) (^_^) (^_^)
↑
攻撃力2000