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