print 出力を変数内へ出力変更することはできないでしょうか？

・Sample

my $res="";

select( $res ); #できないけど、こんなイメージ
print "↑\n";
print "攻撃力2000\n";
select(STDOUT);
print "(^_^) " x 3 ,"\n";
print $res;

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