Ich möchte einen Teilstring aus einer Zeile in Perl extrahieren. Lassen Sie mich ein Beispiel erläutern:

fhjgfghjk3456mm   735373653736
icasd 666666666666
111111111111

In den obigen Zeilen möchte ich nur die 12-stellige Zahl extrahieren. Ich habe versucht mitsplit Funktion:

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

Dabei wird jedoch der übereinstimmende Teil der Zeichenfolge entfernt und der Rückstand in gespeichert@cc. Ich möchte, dass das zum Muster passende Teil gedruckt wird. Wie mache ich das