문서내의 같은 12자리 숫자를 모두 가져오기

my @order_ids = $ie->content =~ m/([\d]{12})/g;

my $i = 0;
       while ( $i < @order_ids  )
       {
               print $order_ids[$i];
               print "\n";
               $i++;
       }