$a ~~ qr(^\d$);