if ( $data =~ /^($regex)$/ ) . . .