Revenge of the pancakes

reveng_of_the_pancakes.pl

<>; # ignore first line of input
foreach(<>) {
    chomp; # get rid of the newline
    $t++; # increment case number (implicitly initialized to zero)
    s/([+-])\1+/\1/g; # simplify stack of pancakes: consecutive similarly-facing pancakes are squashed together
    s/\+$//; # if the last pancake is already facing the correct way: ignore it
    $l=length; # get the height of the stack
    print"Case #$t: $l\n" # print it
}

revenge_of_the_pancakes.min.pl

<>;while(<>){$t++;s/([+-])\1+/\1/g;s/\+?\n//;$l=length;print"Case #$t: $l\n"}