Extraer la subcadena requerida de otra cadena -Perl
Quiero extraer una subcadena de una línea en Perl. Déjame explicarte dando un ejemplo:
fhjgfghjk3456mm 735373653736
icasd 666666666666
111111111111
En las líneas anteriores, solo quiero extraer el número de 12 dígitos. Traté de usarsplit función:
my @cc = split(/[0-9]{12}/,$line);
print @cc;
Pero lo que hace es eliminar la parte coincidente de la cadena y almacena el residuo en@cc. Quiero que se imprima la parte que coincide con el patrón. ¿Cómo hago eso?