perl从命令行读取多行

perl从命令行读取多行需要在列表环境下，而非标量环境下，如

print "Enter the lines, end with ^Z:\n"; @b = ;

这样就可以从命令行读取任意多行到@b数组中。