$+ 与上个正则表达式搜索格式匹配的最后一个括号
$< 当前执行解释器的用户的真实ID
$ 含有与上个匹配正则表达式对应括号结果
$= 当前页面可打印行的数目
$> 当前进程的有效用户ID包含正在执行的脚本的文件名
$ARGV 从默认的文件句柄中读取时的当前文件名
%ENV 环境变量列表
%INC 通过do或require包含的文件列表
%SIG 信号列表及其处理方式
@_ 传给子程序的参数列表
@ARGV 传给脚本的命令行参数列表
@INC 在导入模块时需要搜索的目录列表
$-[0]和$+[0] 代表当前匹配的正则表达式在被匹配的字符串中的起始和终止的位置
while(){
my($date,$desc,$income,$expend) = unpack(“A10xA27xA7xA*”);
}
简单说明：
A10: A表示ASCII，A10表示10个ASCII character, Date的表示就是用10个ASCII码;
x : x表示null byte也等于skip a byte，也就是说我们要跳过一个char（|），
A27: 然后接着27个ASCII char，
x : 然后跳过一个vhar，
A7 : 再接上7个ASCII，
x : 在跳过一个char，
A* : 最后A*表示不管后面char有多少个，全含括进来。
在通常的子例程调用过程中，并不会搜索@ISA数组。但如果用户以调用方法的语法来调用子程序的话，程序就会去搜索@ISA数组。
@ISA = qw(Exporter Net::Cmd IO::Socket::INET);
vars 是一个Perl的pragma，用来预定义全局变量。这些预定义后的全局变量qw()列表中的在整个Perl文件中皆可使用，使用了use strict也不会报警：
use vars qw($TELNET_IAC $TELNET_IP $TELNET_DM);
($TELNET_IAC,$TELNET_IP,$TELNET_DM) = (255,244,242);
$-[0]和$+[0] 代表当前匹配的正则表达式在被匹配的字符串中的起始和终止的位置
|- 打开一个“输出到”管道，那么你就可以向你打开的这个文件句柄写数
-| 打开一个“来自”管道，那么你可以从这个文件句柄读取数据
#!/usr/bin/perl
print $_.”n”;#缺省输入。
print @_.”n”;#函数参数
#局域变量
print $&.”n”;#当字符串用于模式匹配时，字符串被分成了三部分：匹配以前的部分，匹配上的部分，匹配以后的部分。任何部分都可能是空，这个变量指最近一次匹配上的字符串。
print $'.”n”;#匹配部分以后的部分。
print $`.”n”;#最近一次匹配，匹配部分以前的部分。
print $+.”n”;#最后一个圆括号中的子表达式匹配的部分。
print $*.”n”;#缺省情况下，Perl 为了加快匹配速度，假设模式中不包括新行，也就是只执行单行匹配。如果要执行多行匹配，就要把此值设成 1。
print @+.”n”;#这个数组保存当前匹配的最后成功子匹配的结尾的偏移量。$+[0]是整个匹配的偏移量。$+[1]是$1 结束的偏移量，$+[2]是$2 结束的偏移量。
