Select Code to Download

use strict;
use warnings;
...
if ($str =~ /lease\s+\Q$l\E\s+\{.*?\}/s) {
  print "$&\n";
}

 /
   lease   # literal
...
   .*?     # slurp until } (non-greedy)
   \}      # literal
/sx