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