#!/usr/bin/perl

open IN,"pi.dat";

while($l = <IN>)
{
  chomp($l);
  while(length($l)>5)
  {
    $l2 = substr($l,0,5);
    $l = substr($l,5);
    print "$l2\n";
  }
  print "$l\n";
}