Perl statement finder