if ($s =~ /${\REGEX}/) {

##</code><code>##

my $re = REGEX;
if ( $s =~ /$re/ ) {

##</code><code>##


my $REGEX = qr/cat/;
#...
if ( $s =~ /$REGEX/ ) {