Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    next unless ($lease =~ /Telephone/);
    print $lease;
}

while (defined (my $lease = <LEASE>)) {
    next unless ($lease =~ /Telephone/);
...
        print $line, "\n";
    }
}