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;
- or -
my $pattern = qr{ # quoted regex
HOSTNAME: # Literal text
\s* # 0 or more whitespace
(?:\d{4}-)? # Some devices begin with the router mode
+l
\Q$hostname_for_regex\E # Router hostname (grbr-rwan-x)
\s+ # 1 or more whitespace
GRBR: # Literal text
\s* # 0 or more whitespace
\Q$dev_ref->{grbr}\E # Just the GRBR
}ixms;
|