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