#!/usr/bin/env -S perl -p
1 while s/\D\d//