523066680

perl

$all = `type src.txt`;
$all =~ s/\r?\n//g;
while ($all=~s/[^\d]?(\d{11})[^\d]?//)
{
    print "$1\n";
}
复制代码