Anonymous Monk,
When possible, I find this method much nicer than a messy regex:

#!/usr/bin/perl -w
use strict;

open (LEASE, "lease.file") or die "Unable to open input file : $!";

$/ = "\n}\n";

while (defined (my $lease = <LEASE>)) {
    next unless ($lease =~ /Telephone/);
    print $lease;
}
[download]

Now if you need to parse a lease further, you could do something like:

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

Hope this helps - L~R

PS Telephone could be replaced by just about any piece of information in the lease that you want to search for