if (all(qr/^\d+$/, @input)) { ... }