#!/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