Løb gennem en fil x antal tegn ad gangen

Hej,

Jeg sidder med en problemstilling, som er nok nemmest at forklare med et eksempel.

Jeg har en fil, der indeholder følgende

aabbccddeeffgg

og jeg vil have følgende som output:

aa
ab
bb
bc
cc
cd
dd
de
..
..

Jeg har forsøgt med følgende:

..
while (($n = read(F_IN, $data, 2, $offset)) != 0) {
print "$data\n";
$offset += 1;
}
..

Men outputtet ser helt forkert ud:

aa
abb
abcc
abcdd
abcdee
abcdeff
abcdefgh
abcdefghi
abcdefghij
abcdefghijk
abcdefghijk

Er der nogen, der kan hjælp?

Pft.