#!/usr/local/bin/perl
open (READ, "data");

$line = <READ>;

    if ($line eq "aa\n"){
       $hi = aa; 
       open (WRITE, ">$hi");
       print WRITE ($line);
       $line = <READ>;
       while ($line ne "aai\n"){
             print WRITE ("$line");
             $line = <READ>;
             }
        }
    open (WRITE, ">aai");
    print WRITE ($line);
    $line = <READ>;
    while ($line ne ""){
          print WRITE ($line);
          $line = <READ>;
           }
    close(READ);
    close(WRITE);