#! /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);