$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";