use constant PATTERN => qr/def/;
if ($string =~ PATTERN) { ... }