if( $val =~ /$pat/ )