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?