実行結果を配列に入れる

@hoge = `ls`;

foreach $l (@hoge) {
    chop $l;
    print "'$l'\n";
}