【perl】スペース区切りデータ読み込み

#ファイルオープン
open(READ_FILE,"＜test.txt");
#１行読み込み
$read_data = ＜READ_FILE＞;
#スペースで分割
@foo = split (/￥s+/, $read_data);
#1つ目表示
print $foo[1];
#ファイルクローズ
close(READ_FILE);