$a="111111111111111111111111111111111111";
@b = $a =~ /\w{3}/g;
print "@b\n";
@c = unpack("(A3)*", $a);
print "$c[7]\n";
for ($i=1;$i<=13;$i=$i+3)
{
$b=substr($a,$i,3);
push @d,$b;
}
print "@d";
原文：http://www.cnblogs.com/zhangxiujun/p/3905371.html