bracket_detector.pl
#!/usr/bin/perl
$akt_lvl =
0
;
while
(<STDIN>) {
print
$akt_lvl.
": "
.$_;
@d1 =
split
(/\{/, $_);
@d2 =
split
(/\}/, $_);
$akt_lvl = $akt_lvl + @d1 - @d2;
}