...   substr( $p, 0, 1 )   = '123' ...
... ( substr( $q, 0, 1 ) ) = '123' ...