#!/usr/bin/perl
foreach
(
'
Google
'
,
'
Runoob
'
,
'
Taobao
'
)
{
print
;
print
"
\n
"
;
执行以上程序，输出结果为：
Google
Runoob
Taobao
实例中，首先输出 "Google" ，接着输出 "Runoob" ，最后输出 "Taobao" 。
在迭代循环中，当前循环的字符串会放在 $_ 中, 然后 通过 print 输出。另外 print 在不指定输出变量，默认情况下使用的也是 $_。
以下是几处即使没有写明 Perl 也会假定使用 $_ 的地方：
各种单目函数，包括像 ord() 和 int() 这样的函数以及除 "-t"以外所有的文件 测试操作 ("-f"，"-d")，"-t" 默认操作 STDIN。
各种列表函数，例如 print() 和 unlink()。
没有使用 "=~" 运算符时的模式匹配操作 "m//"、"s///" 和"tr///"。
在没有给出其他变量时是 "foreach" 循环的默认迭代变量。
grep() 和 map() 函数的隐含迭代变量。
当 "while" 仅有唯一条件，且该条件是对 ""操作的结果进行测试时，$_ 就是存放输入记录的默认位置。除了"while" 测试条件之外不会发生这种情况。(助记：下划线在特定操作中是可以省略的。)
特殊变量类型
根据特殊的变量的使用性质，可以分为以下几类：
全局标量特殊变量。
全局数组特殊变量。
全局哈希特殊变量。
全局特殊文件句柄。
全局特殊常量。
正则表达式特殊变量。
文件句柄特殊变量。
全局标量特殊变量
以下列出了所有的标量特殊变量，包含了特殊字符与英文形式的变量：
默认输入和模式匹配内容。
前一次读的文件句柄的当前行号
输入记录分隔符,默认是新行字符。如用undef这个变量,将读到文件结尾。
输出域分隔符
输出记录分隔符
该变量同 $,类似，但应用于向双引号引起的字符串(或类似的内插字符串)中内插数组和切片值的场合。默认为一个空格。
$LIST_SEPARATOR
在仿真多维数组时使用的分隔符。默认为 "\034"。
$SUBSCRIPT_SEPARATOR
发送到输出通道的走纸换页符。默认为 "\f".
$FORMAT_FORMFEED
The current set of characters after which a string may be broken to fill continuation fields (starting with ^) in a format. Default is "\n"".
$FORMAT_LINE_BREAK_CHARACTERS
打印前用于保存格式化数据的变量
$ACCUMULATOR
打印数字时默认的数字输出格式（已废弃）。
$OFMT
返回上一个外部命令的状态
$CHILD_ERROR
这个变量的数字值是errno的值,字符串值是对应的系统错误字符串
$OS_ERROR or $ERRNO
命令eval的错误消息.如果为空,则表示上一次eval命令执行成功
$EVAL_ERROR
运行当前Perl脚本程序的进程号
$PROCESS_ID or $PID
当前进程的实际用户号
$REAL_USER_ID or $UID
当前进程的有效用户号
$EFFECTIVE_USER_ID or $EUID
当前进程的实际组用户号
$REAL_GROUP_ID or $GID
当前进程的有效组用户号
$EFFECTIVE_GROUP_ID or $EGID
包含正在执行的脚本的文件名
$PROGRAM_NAME
数组的数组第一个元素的下标,默认是 0。
特殊文件句柄引用了在文件中 __END__ 标志后的任何内容包含脚本内容。或者引用一个包含文件中__DATA__ 标志后的所有内容，只要你在同一个包有读取数据，__DATA__ 就存在。
_ (下划线)
特殊的文件句柄用于缓存文件信息(fstat、stat和lstat)。
全局特殊常量
__END__
脚本的逻辑结束，忽略后面的文本。
__FILE__
当前文件名
__LINE__
__PACKAGE__
当前包名，默认的包名是main。
正则表达式特殊变量
包含上次模式匹配的第n个子串
前一次成功模式匹配的字符串
$MATCH
前次匹配成功的子串之前的内容
$PREMATCH
前次匹配成功的子串之后的内容
$POSTMATCH
与上个正则表达式搜索格式匹配的最后一个括号。例如：
/Version: (.*)|Revision: (.*)/ && ($rev = $+);
