Chcę wyodrębnić podciąg z linii w Perlu. Pozwólcie, że wyjaśnię, podając przykład:

fhjgfghjk3456mm   735373653736
icasd 666666666666
111111111111

W powyższych wierszach chcę tylko wyodrębnić 12-cyfrowy numer. Próbowałem użyćsplit funkcjonować:

my @cc = split(/[0-9]{12}/,$line);
print @cc;

Ale to, co robi, to usunięcie dopasowanej części ciągu i zapisanie pozostałości w@cc. Chcę wydrukować część pasującą do wzorca. Jak mam to zrobić?