#!/usr/bin/perl 

while (read DATA, $buf, 27) {
   print $buf, "\n";
}

__DATA__
This is test line number 1.This is test line number 2.This is test lin
+e number 3.This is test line number 4.This is test line number 5.This
+ is test line number 6.
[download]