Bueno, sí que está el código algo comprimido.
Se trata de un bucle while() que ejecuta la expresión '1', es decir, que no hace nada más que lo que ocurre dentro de la expresión de condición del propio while().
Más información en la sección
Instrucciones compuestas de perlsyn.
La condición es una expresión regular, que confronta el contenido de la variable $text con la concordancia con un patrón, de forma repetida (
/g). Además, la concordancia ignorará los espacios en blanco que contenga el patrón (
/x). Así, será más fácil de entender.
El patrón trata de localizar la posición de diez dígitos (
\d{10}), rodeados por límites de palabra (
\b) En caso de encontrarlos, los capturará con la pareja de paréntesis (
()). Además, ejecutará el código (
(??{{ ... }})) que sigue, que lo que hace es sacar a pantalla el valor de lo capturado en el primer par de paréntesis:
say $1.
Más información en
perlre.