while (glob '*.pkl') {print qq(Found $1 in $_\n) if /(A[1-9])/}