いろいろあるけど、正規表現にこだわるなら
$str="abcdef";
for $x ($str =~ /(..)/g) {
print "$x\n";
}
split について誤解があるみたいだから、
perldoc -f split
もしといてね。