$ perl -le '
-> $str = q{abcdefg};
-> @bits = split m{(?<=..)}, $str;
-> print for @bits;'
ab
c
d
e
f
g
$