Help for this page
my $pattern = qr{HOSTNAME:\s*(?:\d{4}-)?\Q$hostname_for_regex\E(grbr-r +wan-x)\s+GRBR:\s*\Q$dev_ref->{grbr}\E}ixms;
my $pattern = qr{ # quoted regex HOSTNAME: # Literal text ... \s* # 0 or more whitespace \Q$dev_ref->{grbr}\E # Just the GRBR }ixms;