raymundo 도움주셔서 감사합니다 ( 괄호 패턴 관련 질문에대한 )

아래와 같이 완료 했습니다. 실무하느라고 감사 인사가 너무 늦었네요ㅜ
아예 초보라서 오래 걸리기도 했습니다 다시한번 도움 주셔서 감사드립니다
use strict;
use warnings;

my @stack;
my $in = ;
my $c;
my @chr_array = split //, $in;

my $value = 0;
my $stackSize = 0;

foreach $c (@chr_array){
push @stack,$c;
$stackSize++;
}
for(my $i = 0; $i < $stackSize; $i++)
{
my $x = pop(@stack);

if($x eq "("){
$value++;
}
elsif($x eq ")"){
$value--;
}
}

if($value == 0){
print "OK\n";
}else{
print "FAIL\n";
}