括弧の範囲を探すやーつ

search.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

my $depth = 0;
my $str   = "";
while (<>) {
	if (/sqlt_deploy_hook\s+\{/) {
		$depth++;
		if (/\}/) {
			$depth--;
		}
		$str .= $_;
		next;
	}
	if ($depth) {
		if (/\{/) {
			$depth++;
		}
		if (/\}/) {
			$depth--;
		}
		$str .= $_;
	}
}

if ($str && $str !~ /next::method/) {
	print $str;
	exit 1;
}

exit 0;