相关问题：
http://stackoverflow.com/questions/3939788/perl-regex-substituion/3939854
在Perl中，有一种像Ruby一样的方式：
$a = 1;
print "#{$a + 1}";
它可以打印出2？
解决方法
在Perl中有一个类似的简写：
$a = 1;
print "@{[$a + 1]}"
这是因为[]创建对包含一个元素(计算结果)的数组的引用，然后@ {}解引用数组，其中字符串插入顺序打印数组的每个元素。因为只有一个，它只打印一个元素。