Help for this page
if ( ( $val =~ /m/i ) && ( $clamp =~ /y/i ) ) {......}
if ( ( $val =~ m/m/i ) && ( $clamp =~ m/y/i ) ) {......}