매칭 정보 배열에 저장

my @order_ids;
       @order_ids = m/orderId=([0-9]{7})\&/g;

       foreach my $ids ( @order_ids )
       {
               print "ids=>" . $ids . "\n";
       }