open (IN, "test1.dat") or die "Couldn't open file: $!\n";
    my $data = join '', (<IN>);
    close (IN);
    my ($header, $body) = split /\015\012\015\012/, $data;
    
    map { print "'$_'\n";} split /\015\012/, $header;
    print "\n\n";
    map { print "'$_'\n";} (split /\015\012/, $body)[0..4];