配列に読み込み

inputfile="./サンプルテキスト.txt";
open(IN, inputfile);
@ARY = <IN>;
foreach $buf (@ARY) {
	print $buf;
}
close(IN);


配列読み込みで連結は下記

$inputfile="サンプルテキスト.txt";
open(IN, $inputfile);
@ARY = <IN>;
close(IN);

$myStr = join("", @ARY);
print $myStr;

exit;