---  
- Name: Client Name 
- Contact:  
  - - Addresses 
    - - ************ 
  - - Phone_numbers 
    - - ************ 
      - ************ 
  - - Email_addresses 
    - - ************ 
- -  
    Note 3060148:  
    - Author: ************ 
    - Written: ************ 
    - About: ************ 
    - Body: |- 
        <h1>Lead</h1> 
         
        ************ 
  - Note 2909448:  
    - Author: ************ 
    - Written: ************ 
    - About: ************ 
    - Body: |- 
        <h1>Pre-Paid Hours</h1> 
         
        N/A 
  - Note 2909446:  
    - Author: ************ 
    - Written: ************ 
    - About: ************ 
    - Body: |+ 
        <h1>Domain Names</h1> 
         
        ************ 
        ************ 
        ************ 
         
        ************ 
        Admin: ************ 
        Pass: ************ 
         
        Whois INFO: 
         
        Administrative Contact : 
        ************ 
        ************ 
         
        Technical Contact : 
        ************ 
        ************ 
         
         
        Record expires on ************ 
  - Note 2909443:  
    - Author: ************ 
    - Written: ************ 
    - About: ************ 
    - Body: |- 
        <h1>Web Hosting</h1> 
        ************ 
         
        ************ 
         
        FTP Access 
        ************ 
        ************ 
        ************ 
        ************ 
         
        ************ 
        ************ 
        ************ 
        ************

open (CLIENTS,"$ppath/contacts/client name.txt"); 
 
while( $line = <CLIENTS>)  {  
 
 $line =~ s/\s+$//; 
 $line =~ s/-//g; 
 $line =~ s/- //g; 
 $line =~ s/[\n\r]//mg; 
 $line =~ s/\+//g; 
 $line =~ s/Body: //g; 
 $line =~ s/Name: //g; 
 $line =~ s/ Phone_numbers//; 
 $line =~ s/  Email_addresses//; 
 $line =~ s/\<h1>//g; 
 $line =~ s/ <br>//g; 
 $line =~ s/Addresses.*//g; 
 $line =~ s/Author:.*//g; 
 $line =~ s/Contact://g; 
 $line =~ s/Note.*//g; 
 $line =~ s/Written.*//g; 
 $line =~ s/About.*//g; 
 $line =~ s/^\s+/|/;  
 $line =~ s/<br>//g; 
 $line =~ s/\r//gs; 
 
 
@list = ( $line ); 
%temp; 
@list = grep { ++$temp{$_} < 2 } @list; 
  
 foreach $rec (@list){ 
 $rec =~ s/^\s+/|/;  
 print "$rec"; 
 
 		open (DATABASE6,">>contacts/client name.txt"); 
  		print DATABASE6 "$rec"; 
		close (DATABASE6); 
 } 
} 
close (CLIENTS);

opendir(INFILE, "$ppath/contacts/") || die ("Unable to open directory"); 
@files2 = grep !/^\./, readdir(INFILE); 
closedir(INFILE); 
 
         foreach $textfile (sort @files2) { 
 
open (CLIENTS,"$ppath/contacts/$textfile"); 
 
while( $line = <CLIENTS>)  {  
 
  $line =~ s/Body: //g; 
  $line =~ s/-//g; 
  $line =~ s/"//g; 
  $line =~ s/\\n//g;       
  $line =~ s/\\//g; 
  $line =~ s/\s+$//; 
  $line =~ s/^\s+//; 
 
 if ($line =~ /<h1>.*/ ) { 
 $line =~ s/\<h1>//g; 
 
@list = ($line); 
%temp; 
@list = grep { ++$temp{$_} < 2 } @list; 
 
 		open (DATABASE6,">>headers.txt"); 
  		print DATABASE6 "$line"; 
		close (DATABASE6); 
 
 foreach $message (@list) { 
 print "$message<br>"; 
 } 
 
} 
} 
close (CLIENTS); 
}

use strict; 
use warnings; 
use Data::Dumper; 
my %data = (); 
open (IN, 'yourfile') or die "$!"; 
LINE: while( my $line = <IN>) { 
   if ($line =~ /\- (Note \d+):/) { 
      my $note = $1; 
      <IN>,<IN>,<IN>; 
      while ($line = <IN>) {  
         redo LINE if ($line =~ /\- Note \d+:/); 
         push @{$data{$note}},$line; 
      } 
   } 
} 
print Dumper \%data;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Data::Dumper; 
 
my (%data, $client, $note); 
my $datafile = 'filename'; 
 
open my $DATAFILE, '<', $datafile or die "can't open '$datafile' $!"; 
while( my $line = <$DATAFILE>) { 
 
    if ( $line =~ /^\s+- Body: (.*\n)/ ) { 
        $data{$client}{$note}{body} .= $1; 
        while ( $line = <$DATAFILE> ) { 
            if ( $line =~ /\s+Note (\d+):/ ) { 
                $note = $1; 
                last; 
            } 
            $data{$client}{$note}{body} .= $line; 
        } 
        next; 
    } 
 
    $client = $1 if $line =~ /^- Name: (.+)/; 
    $note = $1 if $line =~ /\s+Note (\d+):/; 
 
    if ( $note and $line =~ /^\s+- (\w+):\s*(.+)/ ) { 
        $data{$client}{$note}{$1} = $2; 
    } 
 
} 
print Dumper \%data;

my (@data, $sample, %sample); 
@data = ( \%data ); 
$sample{%data} = @data;  
print $sample{%data};

my (@data, $sample, %sample); 
@data = ( \%data );  
 
 foreach my $content(@data){ 
 if ($content =~ /<h1>Content Management System.*/){ 
 print "$content\n"; 
 } 
 }

my (@array, @temp); 
 
@array = keys(%data);  
foreach my $content(@array){ 
print "testing my $content"; 
}

  
use strict;  
use warnings;  
use Data::Dumper;  
my %data = ();  
open (IN, 'clientname.txt') or die "$!";  
LINE: while( my $line = <IN>) {  
   if ($line =~ /\- (Note \d+):/) {  
      my $note = $1;  
      <IN>,<IN>,<IN>;  
      while ($line = <IN>) {   
         redo LINE if ($line =~ /\- Note \d+:/);  
         push @{$data{$note}},$line;  
      }  
   }  
}  
print Dumper \%data; 
 
 my (@data, $sample, %sample, $key); 
 
 @data = (Dumper \%data); 
 $sample{'key'} = \@data; 
 
   foreach $key (sort keys %data) {        
     print "1. $key: <br>2. $data{$key}<br />"; 
}

 #snipped out code ... 
 my (@data, $sample, %sample, $key); 
 
 @data = (Dumper \%data); 
 $sample{'key'} = \@data; 
 
   foreach $key (\%data) { 
   if ($key =~ /<h1>Content Management System.*/){ 
 
     print "1. $key: <br>2. $data{$key}<br />"; 
} }