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