You can read the records one at a time by setting the input record separator $/ to %%%. See $/ in perlvar:

    #!/usr/bin/perl -wl

    $/ = "%%%";

    while (<DATA>) {
        chomp;
        print if /Email/; # Change to suit

    }

    __DATA__
    Name:  name
    Phone:  number
    Fax:  number
    Address:  address
    Email:  email address
    Info:  information
    %%%
    Name:  name
    Phone:  number
    Fax:  number
    Address:  address
    Email:  email address
    Info:  information
[download]

--
John.