use vars qw($PATTERN);
$PATTERN = qr(...);
...
...
if ($line =~ $PATTERN) { ... }