#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {
   my $id;

   if (m/type="stored-procedure"/) {
      $id = $1 if m/id="([^"]+)"/;
   }
   print "ID: $id\n" if defined $id;
}


__DATA__

<meta-parameter type="stored-procedure" id="rep_vfnz_gsm_bss_tch_network_report_spr">\
<meta-parameter id="rep_vnz_gprs_quality_report_daily_spr" type="stored-procedure">\
<meta-parameter type="stored-procedure" id="rep_vfnz_gsm_nss_benchmarking_report_spr">\
<meta-parameter id="rep_vnz_cchnwpossumreport2_spr" type="stored-procedure">\
<meta-parameter id="rep_vfnz_gsm_bss_tch_network_report_spr" type="stored-procedure">