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