#!/usr/bin/perl

$/ = undef;
$thetext = <STDIN>;

my $open = 0;
my $close = 0;

while ($thetext =~ /\{/g) {
  $open++;
}

while ($thetext =~ /\}/g) {
  $close++;
}

if ($open != $close) {
  print "Do not match: $open open, $close close\n";
}