Select Code to Download

my $xp = XML::XPath->new( ioref => $input );
my $mp = $xp->find('/meta-parameter');
...
        warn "found: " . $xp->findvalue( '@id' => $n );
    }
}

if( m/<([^>]*meta-parameter[^>]*stored-procedure[^>]*)>/ ) {
    my $tag = $1;
...
        # but you get the idea
    }
}