#!/usr/bin/perl

opendir(CURRENT,".");
@list = readdir(CURRENT);
closedir(CURRENT);
my $string = "messages";
my $x = 0;

foreach $item(@list){
     if($item =~ /^$string\.*\d*/){
         open(FILE,"$string");
         open(FILE1,"$string.1");
         open(FILE2,"$string.2");
         open(FILE3,"$string.3");
         open(FILE4,"$string.4");

         $content = <FILE>;
         $content1 = <FILE1>;
         $content2 = <FILE2>;
         $content3 = <FILE3>;
         $content4 = <FILE4>;
    
         while($content == $x){
             print ($content, $content1, $content2,
                    $content3, $content4);
             $x++;
             close(/FILE\d*/);
          }
     }
}