/System/Library/Perl/5.10.0/CGI.pm:867 22.53873 1: [at line 10 inside eval] ??? /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:139 7.02436 117492: next unless ($sentblock =~ /\b$verbform\b/i); ##Ensure the sentence contains the searchkey /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:123 0.86092 519: while (my $sentblock = ) /System/Library/Perl/5.10.0/File/Find.pm:895 0.61021 150: @filenames = readdir DIR; /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:134 0.22259 29373: $sentence =~ s/, / /g; /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:131 0.08909 30413: next unless ($sentblock =~ /\[sent. (\d+) len. \d+\]: \[(.+)\]/); ##Remember, talking about the whole block here /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:126 0.05230 30413: if ( $sentblock =~ /file:\s(\S+)\.txt/) ##Could change to get just chpt number/word /System/Library/Perl/5.10.0/File/Find.pm:940 0.03863 3625: $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3]; /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:27 0.03166 1: require '/Users/jon/Desktop/stanford-postagger-full-2011-04-20/verbTenseChanger.pl'; /Library/WebServer/CGI-Executables/mytestsearch2011.cgi:132 0.03129 29373: $sentencenumber = $1; ## $1 refers to first set of paranthesis in the last match