Select Code to Download

use strict;
use warnings;
...
if ($str =~ /^(lease\s\Q$l\E[^\}]+?^\})/m) {
  print "$1\n";
}

my $l = '10.2.56.77';
if ($str =~ /^(lease\s\Q$l\E[^\}]+?^\})/m) {
  print "$1\n";
}