undef $/; 
    @records = split /your_pattern/, <FH>;

    ## Create a file with three lines. 
    open FH, ">file"; 
    print FH "The first line\nThe second line\nThe third line\n"; 
    close FH; 
  
    ## Get a read/write filehandle to it. 
    $fh = new FileHandle "+<file"; 
  
    ## Attach it to a "stream" object. 
    use Net::Telnet; 
    $file = new Net::Telnet (-fhopen => $fh); 
  
    ## Search for the second line and print out the third. 
    $file->waitfor('/second line\n/'); 
    print $file->getline;