Extraia a substring necessária de outra string -Perl
Eu quero extrair uma substring de uma linha em Perl. Deixe-me explicar dando um exemplo:
fhjgfghjk3456mm 735373653736
icasd 666666666666
111111111111
Nas linhas acima, só quero extrair o número de 12 dígitos. Eu tentei usarsplit função:
my @cc = split(/[0-9]{12}/,$line);
print @cc;
Mas o que ele faz é remover a parte correspondente da string e armazenar o resíduo em@cc. Eu quero que a parte correspondente ao padrão seja impressa. Como eu faço isso?