DB<23> $_="aaa" DB<24> print scalar m/a/ 1