Perl 매칭 관련 질문

# 마지막 } 를 > 로 치환
 
 
# 마지막 }   =>   자신의 뒤쪽에는 더 이상 }가 나타나지 않는 }
# 부정 전방탐색
$a =~ s/}(?!.*})/>/;
 
# 마지막 }  =>   자신의 뒤에는 문자가 없거나 }를 제외한 문자만 있는 }
# 긍정 전방탐색
$a =~ s/}(?=[^}]*$)/>/;
 
# 전방탐색을 안 쓴다면
# 마지막 } 는 > 로 바꾸고, 그 뒤에 있는 것들은 그대로 다시 치환
$a =~ s/}([^}]*$)/>$1/;