my @arr = <FH>;
my $sca = join '',@arr;

どうしてもこんな処理をしたいんですけど、
もっとスマートに書く方法はありますか？

以前は
foreach my $line(<FH>){
　　chomp;
　　$sca = $line;
}
としてたんですが、
うまい方法をご教授願います