#!/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 line number 3.This is test line number 4.This is test line number 5.This is test line number 6.