if( $val =~ /^(?:$pat)$/ )