Help for this page
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"; }