Pointed out by renormalist on IRC.
@data = split(/;/, join('', @data));
close($fh);
@data = grep { $_ && $_ !~ /^-- / } @data;
- @data = grep { $_ !~ /^(BEGIN TRANACTION|COMMIT)/m } @data;
+ @data = grep { $_ !~ /^(BEGIN TRANSACTION|COMMIT)/m } @data;
return \@data;
}