while (defined (my $lease = <LEASE>)) {
    next unless ($lease =~ /Telephone/);
    foreach my $line (split /\n/ , $lease) {
        # Do something with the line?
        print $line, "\n";
    }
}