Help for this page
... substr( $p, 0, 1 ) = '123' ... ... ( substr( $q, 0, 1 ) ) = '123' ...
use strict; use warnings; ... say $p; # x23bc say $q; # 123bc