Hope this small piece would of some help...Because your file has uniform pattern so without regex also this can be tackled

#! /usr/bin/perl -w
use strict;
open (FH,"infile") or die "File cant be open\n";
while(<FH>)
{
        my @temp=split(/"/);
        if ($temp[1] eq 'stored-procedure')
        {
                print "$temp[3]\n";

        }
}
close(FH);
[download]

But as always "There's more than one way to do it" n better also :)